OnKeyDown im kompletten Programm

[Aurelius]

Hallo DP'ler :hi:

Ich werte im OnKeyDown meineer frmMain die taste aus (mein Mp3-Player soll auf die Multimediatasten reagieren). Nun hab ich aber das Problem dass, wenn der Focus auf einem Control liegt, das ganze nicht funktioniert (ist auch logisch). Wie kann ich das Problem jetzt lösen? Nach jedem Klick auf ein Control den Focus auf die frmMain setzen finde ich nicht so dolle, bei jedem Control im onkeypress das OnKeyPress der frmMain aufrufen ist imho auch nicht das Wahre. Wie würdet ihr sowas lösen (ohne Hooks)?

[sirius]

mit TApplicationEvents und dort dem Ereignis onMessageUnd dann musst du noch schauen auf welche Message du reagieren musst (WM_KeyDown oder so).

[dominikkv]

form.keypreview := true;

[Hawkeye219]

Hallo,

ich würde es mit einer TAction versuchen oder mit dem Ereignis TForm.OnShortCut:

Delphi-Quellcode:

procedure TForm1.FormShortCut (var Msg: TWMKey; var Handled: Boolean);
const
  StrgA = scCtrl or Ord('A');
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
  if (Key = StrgA) then
    begin
      ShowMessage ('Hallo Welt!');
      Handled := True;
    end;
end;

Ob dies auch für die Multimediatasten funktionert, kann ich dir allerdings nicht sagen. Möglicherweise kommst du da um eine direkte Verarbeitung von Messages nicht herum.

Gruß Hawkeye