Скачать: CL | DM;

RegisterHotKey   Найти похожие ветки 

← →
Михаил(Киров)   (2005-08-02 22:57) [0]

Как пользоваться функцией RegisterHotKey. У кого-нибудь есть простенький примерчик?

---

← →
alex-drob ©   (2005-08-03 00:19) [1]

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

procedure TForm1.WMHotKey(var Message: TMessage);
begin
beep
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterHotKey(handle,555,MOD_ALT,VK_TAB);
end;

---

← →
SpyBoy ©   (2005-08-03 18:35) [2]

Вопрос:
Как глобально перехватить нажатие кнопки PrintScreen?
Ответ:
В примере для глобального перехвата нажатия клавиши printscreen регистрируется горячая клавиша (hot key).
Пример:

           type
              TForm1 = 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
              Form1: TForm1;

            implementation

            {$R *.DFM}

            const id_SnapShot = 101;

            procedure TForm1.WMHotKey (var Msg : TWMHotKey);
            begin
              if Msg.HotKey = id_SnapShot then
                ShowMessage("GotIt");
            end;

            procedure TForm1.FormCreate(Sender: TObject);
            begin
              RegisterHotKey(Form1.Handle,
                             id_SnapShot,
                             0,
                             VK_SNAPSHOT);
            end;

            procedure TForm1.FormDestroy(Sender: TObject);
            begin
              UnRegisterHotKey (Form1.Handle, id_SnapShot);
            end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c