Вопрос № 65359: Что сделать, чтобы при нажатии на Alt не выделялся первый пункт в MainMenu?...Вопрос № 65364: Доброго времени суток, уважаемые эксперты!
Неожиданно наткнулся на проблему...
Как получить текст выделенного элемента из ListBox?
Имеется следующая конструкция:
Берётся элемент кобобокса, при выделении подкручиваются индексы листбокс...Вопрос № 65429: Здравстуйте уважаемые эксперты! Подскажите пожалуйста ссылки на модуль криптования AES или где хоть можно найти описание этого криптоалгоритма. Весь инет облазил, все хрень какаято..на вас последнняя надежда.
Заранее спасибо!...
Вопрос № 65.359
Что сделать, чтобы при нажатии на Alt не выделялся первый пункт в MainMenu?
Отправлен: 03.12.2006, 14:59
Вопрос задал: Bcd (статус: 1-ый класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PaVeL_Ekt
Здравствуйте, Bcd!
Можно попробовать сделать так:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=18 then key:=0;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=18 then key:=0;
end;
и смотреть нажата ли alt через shift.
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 7-ой класс)
Ответ отправлен: 04.12.2006, 08:53 Оценка за ответ: 5
Вопрос № 65.364
Доброго времени суток, уважаемые эксперты!
Неожиданно наткнулся на проблему...
Как получить текст выделенного элемента из ListBox?
Имеется следующая конструкция:
Берётся элемент кобобокса, при выделении подкручиваются индексы листбоксов, потом необходимо в переменные serial и path загрузить текущее содержимое соответствующих листбоксов, а serial скопировать в буфер.
index:=Combobox1.Items.IndexOf(Combobox1.Text);
Listbox2.ItemIndex:=index;
Listbox3.ItemIndex:=index;
serial:=listbox2.Items.GetText;
path:=listbox3.Items.GetText;
Edit1.Text:=Serial;
Edit1.CopyToClipboard;
Конечно, можно попробовать использовать 3 комбобокса вместо 1 комбо +2 листбокса...
Можно еще воспользоваться TClipBoard, unit clipbrd;
прописываете его в uses
и дальше делаете так;
...
var
c:TclipBoard;
begin
c:=tclipboard.Create;
c.AsText:='Любой текст';
c.free;
end;
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 7-ой класс)
Ответ отправлен: 04.12.2006, 08:23
Вопрос № 65.429
Здравстуйте уважаемые эксперты! Подскажите пожалуйста ссылки на модуль криптования AES или где хоть можно найти описание этого криптоалгоритма. Весь инет облазил, все хрень какаято..на вас последнняя надежда.
Заранее спасибо!
Отправлен: 03.12.2006, 23:16
Вопрос задал: Алескандр (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
