Tasten global "abfangen"

[d.adams]

Hallo,

ich muss eine Anwendung etwas bedienerfreundlicher gestalten - die Erschaffer haben sich leider nicht immer an den Guide gehalten. Das System bietet diverse Shortcuts an die aus jedem Formular funktionieren sollten.

Ich würde nun gerne Tastenkürzel oder F-Tasten abfragen (abfangen) und zwar so, dass ich nicht in jedes Formular muss. Bspw. ruft die Taste F8 immer ein bestimmtes Formular auf. Dies wird in jedem Formular "OnKeyPress" behandelt. Das würde ich gerne einmalig und zentral behandeln. Geht das und wenn ja wie?

Gruß
Heiko

[himitsu]

In den OnKeyPress/OnKeyDown aller Forms eine globale Funktion aufrufen, welche die übergreifende Behandlung ausführt.

Dafür kann man seine Forms auch ableiten/vererben und das Verhalten ins virtual KeyDown/KeyPress des gemeinsamen Vorfahren einbauen.

oder TApplicationEvents.OnMesssage

[d.adams]

Zitat von himitsu:

In den OnKeyPress/OnKeyDown aller Forms eine globale Funktion aufrufen, welche die übergreifende Behandlung ausführt.

Dafür kann man seine Forms auch ableiten/vererben und das Verhalten ins virtual KeyDown/KeyPress des gemeinsamen Vorfahren einbauen.

oder TApplicationEvents.OnMesssage

TApplicationEvents.OnMesssage....

nie von gelesen. Wie nutzt man das?

[freimatz]

https://www.google.com/search?client...nts.OnMesssage
SCNR

[d.adams]

danke

[himitsu]

Und da dann WM_KEYUP, WM_KEYDOWN usw.

TApplicationEvents.On... ist die praktischere Variante des alten Application.On...

[KodeZwerg]

Nichts gegen die vorigen Vorschläge, dennoch zeig ich mal wie man es nur einmal behandeln könnte, dazu musst Du die .dpr datei modifizieren.

Delphi-Quellcode:

program Project12;

uses
  Winapi.Windows,
  Winapi.MMSystem,
  Vcl.Forms,
  Unit12 in 'Unit12.pas' {Form12},
  Unit13 in 'Unit13.pas' {Form13};

{$R *.res}

// hotkey behandlung
procedure HotkeyTimer(TimerID, Msg: Uint; dwUser, dw1, dw2: DWord); pascal;
begin
  if ((GetKeyState(VK_F8) and (1 shl 31))  <> 0) then  // VK_F8 wird in diesem Beispiel genutzt um ein Formular anzuzeigen
    Form13.Show;
end;

var
  HID: Integer;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  // hotkey installieren
  HID := TimeSetEvent(10, 0, @HotkeyTimer, 0, TIME_PERIODIC);
  Application.Run;
  // hotkey entfernen
  TimeKillEvent(HID);
end.