Jegliches Minimieren abfangen

[StefanDP]

(edit)

dieser code funzt:

Delphi-Quellcode:

private
  procedure WMShowWindow(var Msg: TWMSHOWWINDOW);message WM_SHOWWINDOW;
...
procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
 if not Msg.Show then
   Msg.Result := 0
 else
   inherited;
end;

mfg
stefan