Das Minimieren des Fensters abfangen

[ConnorMcLeod]

Vllt reicht es so indem Du Deine Logik einsetzt:

Delphi-Quellcode:

    procedure WMSysCommand ( Var Message : TWMSysCommand ); message WM_SYSCOMMAND;
    procedure SizeMove (var msg: TWMSize); message WM_SIZE;

-----

procedure TForm1.WMSysCommand ( Var Message : TWMSysCommand );
begin
  inherited;
  case Message.CmdType of
    SC_RESTORE:
      begin
      end;
    SC_MAXIMIZE:
      begin
      end;
    SC_MINIMIZE:
      begin
      end;
  end;
end;

procedure TForm1.SizeMove(var msg: TWMSize);
begin
  inherited;
  case msg.SizeType of
    SIZE_RESTORED : ;
    SIZE_MINIMIZED: ;
    SIZE_MAXIMIZED: ;
    SIZE_MAXSHOW  : ;
    SIZE_MAXHIDE  : ;
  end;
end;