Tch es gelingt mir nicht die MSG zu bekommen... habe folgenes gemacht...
Delphi-Quellcode:
...
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
Und dann...
Delphi-Quellcode:
procedure TfrmMain.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_CLOSE then begin
if not bolMainCanClose then mbtnClose.Click;
Msg.Result := 0;
end;
Inherited;
end;
Aber wenn ichnun einen BP bei "if Msg.CmdType = SC_CLOSE then begin" setze wird der nie angefahren, meine Anwendung geht einfach nur zu
Was hab ich da wohl übersehen?
Gruß Frank