HotKey und SetFocus

[Nils_13]

Ich konnte den letzten Beitrag logischerweise nicht mehr editieren und möchte aber für die Suche die Lösung für das Problem bereitstellen:

Delphi-Quellcode:

procedure TfrmMain.WMHotKey(var Message : TMessage);
begin
  if Message.wParam = HotKeyID then
    if Visible then
      Hide
    else
    begin
      Show;
      SetForeGroundWindow(Handle);
    end;
end;