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

Hot Key   Найти похожие ветки 

← →
veronika   (2005-09-09 00:53) [0]

как можно зделать следуйше:
чтоб нажатии на == произашло Button1.Click.

cпасибо!

---

← →
veronika   (2005-09-09 02:06) [1]

как можно зделать следуйше:
чтоб нажатии на F9 произошла Button1.Click.

---

← →
Brother   (2005-09-09 09:23) [2]

в процедуре formkeypress
пиши if key=код клавиши F9 then Button1.click;

p.s. код F9 клавиши иши сама #13-Enter

---

← →
Kolan ©   (2005-09-10 14:52) [3]

Для варианта [2] надо поставить свойство формы KeyPreview.

Так же можно зарегистрировать горячие клавиши. Пример:

protected
   procedure HotKey(var Msg: TMessage); message WM_HOTKEY;
Эта процедура обработает сообщение о нажатии ггорячей клавиши

var
 MainForm: TMainForm;
 MeasureHotKey, StartConnectionHotKey, StopHotKey, ReCalcHotKey : Integer;
Это обявление переменных.

 StartConnectionHotKey := GlobalAddAtom("StartConnectionHotKey");
 RegisterHotKey(Handle, StartConnectionHotKey,  0, VK_F4);
Регистрируем клавиши. Это можно сделать в FormCreate"е

procedure TMainForm.HotKey(var Msg: TMessage);
begin
 if Msg.LParamHi = VK_F4 then {Тут любая кнопка вместо F4}
 begin
   ToolConnectButton.Action.Execute;
 end;
end;

Так же клавиши надо удалить например в FormDestroy
 UnRegisterHotKey(Handle, StartConnectionHotKey);

---

← →
msguns ©   (2005-09-12 13:02) [4]

Без крайней надобности не надо
1. Устанавливать KeyPreview формы
2. "Седлать" событие OnKeyPress/OnKeyDown контрола и (особенно !) формы.

Для централизации управления, назначения "горячих клавиш" и т.д. следует использовать TActionList+TAction

---

← →
Наиль ©   (2005-09-12 15:05) [5]

Для F9 onKeyPress не подходит. Только onKeyDown\onKeyUp

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.026 c