Правильный перехват клавиши

@EEjester · Регистрация: 28.03.2013

Author24 — интернет-сервис помощи студентам

Всем привет. Есть такой код:

Delphi

private
  procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(handle, 27);
end;
 
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = 27 then
  begin
  //ЕСЛИ ЭТА КЛАВИША НАЖАТА ТО ТУТ ДЕЙСТВИЕ;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(handle, 27, 0, 27);
end;

Это код отслеживает нажатие клавиши ESC (27). Как мне заменить клавишу ESC на то что будет выбрано?
Например создаю Combobox, в нем составляю список клавиш, и как мне потом прилепить выбраню клавишу к коду?

@Markus_13 · 03.10.2013, 20:07

EEjester, и в чем проблема?
делаешь что-то вроде:

Delphi

1
2
3

ComboBox1.Items.Add('Ctrl');
...
if ComboBox1.Text='Ctrl' then k:=vk_control;

и соотв-но заменяешь цифру 27 на переменную k

@northener · 03.10.2013, 20:08

Сообщение от EEjester

в нем составляю список клавиш, и как мне потом прилепить выбраню клавишу

Как составляешь список?

@EEjester · 03.10.2013, 23:28 **[ТС]**

Сообщение от Markus_13

if ComboBox1.Text='Ctrl' then k:=vk_control;

какова типа должна быть переменная "k" ?

04.10.2013, 04:00

Можно Integer.

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	03.10.2013, 20:08	3
	Сообщение от EEjester в нем составляю список клавиш, и как мне потом прилепить выбраню клавишу Как составляешь список? 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	03.10.2013, 23:28 [ТС]	4
	Сообщение от Markus_13 if ComboBox1.Text='Ctrl' then k:=vk_control; какова типа должна быть переменная "k" ? 0

angstrom
	04.10.2013, 04:00	5
	Можно Integer.

	04.10.2013, 04:00