Nachrichten der TApplication Klasse anfangen?

[1234588]

einen wunderschoenen tag wuensch ich der community

meine applikation sieht folgendermaßen aus

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMSYSCMD(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;
[..]
const
  CM_BTN = 100;
[..]
procedure TForm1.WMSYSCMD(var Msg: TWMSysCommand);
begin
  case msg.CmdType of
    CM_BTN: beep;
  end;
  inherited;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  h: hwnd;
begin
  h := GetSystemMenu(Handle, false);
  AppendMenu(h, MF_STRING, CM_BTN, 'Test');
end;

ergebnis:
http://beachhosting.de/i/b5dad0735eb...2d69b39e4d.jpg

den klick auf die neue schaltflaeche ('Test') kann ich ja einfach abfangen, man koennte auch die fenster funktion ueberschreiben und so die nachricht anfangen. nun kommen wir zu meinem eigentlichen problemchen

wenn ich der funktion GetSystemMenu() das handle 'Application.Handle' uebergebe, dann hab ich wie erwartet folgendes ergebnis:
http://beachhosting.de/i/c3483c98503...744304dcd0.jpg

ich bin ratlos wie ich diesen klick abfangen soll, ich weiß generell nicht wie ich nachrichten der TApplication klasse abfange.

waere fuer jeden beitrag der mich ein stueckchen weiter bringt, sehr dankbar :)

[jfheins]

Guck mal, ob du ein TApplicationEvents auf die Form ziehen kannst, und dann im OnMesaage eventhandler was ankommt ;)

[1234588]

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case msg.wParam of
    CM_BTN: beep;
  end;
  inherited;
end;

es piept :D
vielen dank