Minimieren selbst aufrufen ?

[Paximperia]

Mit der folgenden procedure kann ich auf die Aktion Minimieren des Users reagieren.
Meine Frage ist nun, wie ich diese procedure aufrufen kann, so dass sie der
Funktion des Minimierens gleich ist? Also ein Button, mit dem ich das Minimieren
clonen kann.

Code:

procedure TForm1.WMSysCommand(var message: TWMSysCommand);
begin
  if message.CmdType and $FFF0 = SC_MINIMIZE then
  Form1.Visible:=false
  // Hier passiert was 
  else
  inherited;
end;

Danke im Voraus

[Synonym]

ich weiß zwar nicht genau was du meinst, aber mit

application.minimize; kannst du dein Form minimieren

gruß

synonym

[Paximperia]

danke für die schnelle Antwort.

das wollte ich nur wissen.