Entwickler-Ecke

Windows API - Systemweite Hotkeys : Abfrage


Delete - Mo 10.11.03 20:57
Titel: Systemweite Hotkeys : Abfrage
Mit folgenden Beispielcode habe ich erst einen systemweiten Hotkey erzeugt und registriert, aber wie realisiere ich nun die ständige Abfrage der Prozedur HotKey ? Oder muss das gar eine Funktion sein ?

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
 
procedure TMForm.FormCreate(Sender: TObject);
begin
  id1 := GlobalAddAtom('Hotkey4');
  RegisterHotKey(Handle, id1, 0, VK_SNAPSHOT);
end;


procedure  HotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id1 then
    ShowMessage('JUHUU');
end;


Grüße, Paul

Moderiert von user profile iconTino: Code- durch Delphi-Tags ersetzt.


Delete - Mo 10.11.03 21:11
In der Typendeklaration deiner Form folgendes ergänzen:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
type
  TMForm = class(TForm)
    { ... }
  private
    procedure HotKey(var Msg: TWMHotKey); message WM_HOTKEY;    
  end;

und dann noch ein schnödes "TMForm." vor "HotKey" setzen

Delphi-Quelltext 
1:
 
procedure TMForm.HotKey

Voilà.


Delete - Mo 10.11.03 21:57
Danke vielmals. Es klappt wunderbar.

Paul


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!