Как назначить "горячие" клавиши

[ekzobyte]

Подскажите пожалуйста, как сделать в делфи 7 "горячие клавиши"?

[NieL]

Можно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
    ID = WM_USER + 1;

type
  Tform_Test = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  form_Test: Tform_Test;

implementation

{$R *.dfm}

procedure Tform_Test.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, ID, MOD_CONTROL, VK_F1);
end;

procedure Tform_Test.FormDestroy(Sender: TObject);
begin
  UnregisterHotkey(Handle, ID);
end;

procedure Tform_Test.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = ID then
    ShowMessage('Hot Key pressed');
end;

end.

[ekzobyte]

Ну а если мне нужно, что бы по нажатию, например, Ctrl+S или любой другой комбинации выполнялась процедура кнопки?

[NieL]

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

Ну а если мне нужно, что бы по нажатию, например, Ctrl+S или любой другой комбинации выполнялась процедура кнопки?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
    ID = WM_USER + 1;

type
  Tform_Test = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  form_Test: Tform_Test;

implementation

{$R *.dfm}

procedure Tform_Test.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, ID, MOD_CONTROL, Ord('S'));
 // здесь указываешь свою комбинацию клавиш
 
end;

procedure Tform_Test.FormDestroy(Sender: TObject);
begin
  UnregisterHotkey(Handle, ID);
end;

procedure Tform_Test.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = ID then
    Button1Click(nil);
end;

procedure Tform_Test.Button1Click(Sender: TObject);
begin
  ShowMessage('zzz');
end;

end.

[Stilet]

Button1Click(nil);

Добавлю только что лучше Button1.Click - надежнее будет.

[ekzobyte]

Спасибо!!! основу понял

[ekzobyte]

Может ещё кто нибудь подскажет, как можно в операторе RegisterHotKey(Handle, ID, MOD_CONTROL, Ord('S')); вместо S использовать введённый в Edit символ?

[eskander]

RegisterHotKey(Handle, ID, MOD_CONTROL, Ord(Edit1.text[1]));

[ekzobyte]

Спасибо eskander, но я имел ввиду, чтобы во время программы можно было бы ещё и сменить комбинацию, точнее последнюю букву

[eskander]

Ловим keypress у эдита, там делаем
UnregisterHotkey(Handle, ID);
а затем
RegisterHotKey(Handle, ID, MOD_CONTROL, Ord(Key));