THotKey - MacOS / Windows

[EugenE]

Hi ,

hab mal eine kleine THotKey-Klasse geschrieben welche unter MacOS und Windows läuft

Wie funktioniert es:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Bei Windows muss das Form.Handle übergeben werden
  // Bei Mac braucht man keins
  MyHotKey := THotKey.Create{$IFDEF MSWINDOWS}(Handle){$ENDIF};
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  MyHotKey.Free;
end; 
 
{...}
 
// Dieses Event wird dann von der Komponente aufgerufen
procedure TForm1.MyHotKeyEvent(Key, Option: Word);
begin
  case Key of
    VK_A: ShowMessage('A');
    VK_1: ShowMessage('1');
  end;
end;
 
// Un/Registrieren eines HotKeys
// Key, Option, Event
MyHotKey.RegisterHotKey(VK_A, 0, @MyHotKeyEvent);
// HotKey ID
MyHotKey.UnRegisterHotKey(0);

Dank der Hilfe von skalogryz, konnte ich die Mac-Version portieren .

Wenn noch jemand die Linux Version hinzufügen könnte, wäre die Sache komplett

Gruß
Eugen

[carli]

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Bei Windows muss das Form.Handle übergeben werden
  // Bei Mac braucht man keins
  MyHotKey := THotKey.Create{$IFDEF MSWINDOWS}(Handle){$ENDIF};
end;

Das gefällt mir noch nicht so. frage lieber in der Implementation nach Application.Handle im Fall von MSWINDOWS, anstatt es den Benutzer (..der Klasse) machen zu lassen.

[EugenE]

Das gefällt mir noch nicht so. frage lieber in der Implementation nach Application.Handle im Fall von MSWINDOWS, anstatt es den Benutzer (..der Klasse) machen zu lassen.

Ich wusste nicht ob man auch von Application das Handle nehmen darf , naja wem dieser einfacher Aufruf zu viel, dann kann man es ja einfach im Code ändern

Die Klasse kann jeder bearbeiten der es möchte, solang es gute änderungen sind, einfach hier im Thread posten

Eugen