Systemweite Hotkeys : Abfrage

Ehemaliges Mitglied Erhaltene Danke: 1

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 ?

markieren

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 Tino: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

In der Typendeklaration deiner Form folgendes ergänzen:

markieren

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

markieren

Delphi-Quelltext

1:	procedure TMForm.HotKey

Voilà.

Ehemaliges Mitglied Erhaltene Danke: 1

Danke vielmals. Es klappt wunderbar.

Paul

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme