горячие клавиши (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;

> [0] angelika (26.08.06 16:49)
потому что читаем не то и не тем местом. ord("Q").

горячие клавиши (ctrl+key) Найти похожие ветки