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

Nachrichten der TApplication Klasse anfangen?

Nachrichten der TApplication Klasse anfangen?

Forumregeln