-
kashey © (28.02.18 16:45) [0]
-
Rouse_ © (28.02.18 17:17) [1]
type
TForm5 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 0, MOD_CONTROL, VK_SPACE);
end;
procedure TForm5.WMHotKey(var Msg: TWMHotKey);
begin
Beep;
end; -
KilkennyCat © (28.02.18 20:37) [2]
> kashey ©
упорно стесняешься считать себя начинающим? или не видел http://pda.delphimaster.net/?n=18?