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