Как сделать диалог выбора кнопки?

[Iron Monk]

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

Не. Автору диалог выбора нужен. Я чет тоже сразу не в ту степь попер. Так что правильно выше сказали - отдельную форму с THotKey.

Диалог выбора горячих клавиш для программы?
Не увидел сложностей.

procedure WMHotkey(var msg: TWMHotkey); message WM_HOTKEY;
.........................................

var
  hot: Cardinal;

procedure TForm1.WMHotkey(var msg: TWMHotkey);
begin
  if msg.hotkey = 1 then
  begin
    if IsIconic(Application.Handle) then
      Application.Restore;
      Form1.Visible:= not Form1.Visible;
      BringToFront;
  end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
hot:= Ord(Key);
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Edit1.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
_alt, _shift : integer;
begin
     _alt:= 0; _shift:= 0;
     if CheckBox1.Checked then _alt:= 1;
     if CheckBox2.Checked then _shift:= 4;
     if not RegisterHotkey(Handle, 1, _alt+_shift, hot) then
     ShowMessage('Unable to assign hotkey.');
end;

[min@y™]

Диалог выбора горячих клавиш для программы?
Не увидел сложностей.

кстати, да!