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);

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

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

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

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