Minimieren verhindern |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Die Funktion 'Alle Fenster minimieren' aus der Windows Taskbar minimiert alle Fenster, auch solche die eigentlich keine Minimieren-Schaltfläche besitzen. Der folgende Code verhindert das Minimieren eines Fensters.
private
procedure WMShowWindow(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
{...}
implementation
{...}
procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
if not Msg.Show then
Msg.Result := 0
else
inherited;
end;