Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.954 c