Zitat von
SirThornberry:
Besser ist es doch die Ursache zu verhindern. Wenn jemand den Form minimieren Knopf drückst wird derzeit das Form minimiert und zusätzlich das minimieren noch ausgeführt. Führe das inherited doch nur aus wenn die Ursprüngliche Aktion auch durchgeführt werden soll. Oder noch besser - wenn minimieren nicht erlaubt sein soll einfach bei den Bordericons das Minimieren raus nehmen. Denn das Verhalten was hier gewollt ist, ist ein schließen und kein minimieren.
meinst diesen Code :
Delphi-Quellcode:
procedure TForm2.WMSyscommand(Var msg: TWmSysCommand);
begin
if (msg.cmdtype and $FFF0 = SC_MINIMIZE) then
begin
Application.Minimize;
Form2.Hide;
end
else
exit;
end;
inherited;
end;
Habe ich auch getestet: Form2 wird nicht in Taskbar minimiert
auch diesen code :
Delphi-Quellcode:
Self.Visible:=true;
SetForegroundWindow(Self.Handle);
ich würde den Vorschlag von
omata nehmen ; )
Delphi-Quellcode:
procedure TForm2.WMSyscommand(Var msg: TWmSysCommand);
begin
//Self.WindowState := wsMaximized;
//Form2.WindowState := wsMaximized;
Form2.WindowState := wsNormal;
end;