Содержание материала

Пример демонстрирует установку горячей клавиши CTRL-F7:

Code:

unit Unit1;

interface

uses

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

 

type

TForm1 = class(TForm)

   procedure FormActivate(Sender: TObject);

   procedure FormDestroy(Sender: TObject);

private

   procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

end;

 

var

Form1: TForm1;

implementation

 

{$R *.DFM}

procedure Tform1.WMHotKey(var Message: TMessage);

begin

application.Restore;

application.bringtofront;

showmessage('Нажата CTRL-F7!');

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

RegisterHotKey(form1.Handle,123,mod_control,vk_f7);

end;

 

procedure TForm1.FormDestroy(Sender: TObject);

begin

UnregisterHotKey(Handle, 123)

end;

 

end.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить