Das Minimieren des Fensters abfangen

[Darlo]

Erst lesen dann antworten...
Die Antwort kannst Du ignorieren, sorry;


####################################
Vielleicht in etwa so:

Code:

procedure TForm.FormResize(Sender: TObject);
begin
if form.windowstate = wsminimized then
  SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;

procedure TForm.MyWM_SYSCOMMAND(var aMsg: TMessage);
begin
  if aMsg.WParam = SC_MINIMIZE then
    Application.Minimize
  else
    inherited;
end;

Gruß