Eigene Anwendung/Fenster nach vorne holen per Shortcut

[Bummi]

Delphi-Quellcode:

unit unit3;
interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm3 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
     procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
  end;

var
  Form3: TForm3;

implementation


{$R *.dfm}


{ TForm3 }

const
  HotkeyID=12345;

procedure TForm3.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, HotkeyID , MOD_CONTROL, VK_F10);
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, HotkeyID);
end;

procedure TForm3.WMHotKey(var Message: TMessage);
begin
   Showmessage('Hallo')
end;

end.