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
