Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Вниз
горячие клавиши (ctrl+key) Найти похожие ветки
← →
angelika (2006-08-26 16:49) [0]Подскажите пожалуйста как сделать горячие клавиши для своей программы(чтобы они были доступны только изнутри программы). Горячие клавиши с сочетания Ctrl+(какая либо буква), например ctrl+q.
Код который я написала почему-то не работает, улавливается только нажатие ctrl.
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
if Key = Ord("q") then label1.Caption:="ok";
end;
← →
Джо © (2006-08-26 16:56) [1]Используйте стандартный компонет TActionList -- дешево, удобно и практично :)
← →
Handle © (2006-08-26 18:33) [2]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (chr(Key) in ["Q", "q"]) then
ShowMessage("Ctrl-Q");
end;
← →
Ketmar © (2006-08-26 18:40) [3]> [0] angelika (26.08.06 16:49)
потому что читаем не то и не тем местом. ord("Q").
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.101 c
