Hab gerade etwas gefunden!
Leider ist das nicht ganz perfekt, da ich die Größe meines Hauptformulares Dynamisch an den Desktop Anpasse!
//Fenster darf nicht minimiert werden
//Will man verhindern, dass ein Anwender ein Fenster minimiert, oder die Anwendung ueber eine Verknuepfung minimiert startet, kann man das mit sehr geringem Aufwand unterbinden.
//Zuerst deklariert man im Private Abschnitt des Formulares eine Routine, die auf dieses Ereignis reagiert:
Procedure WMSIZE(Var Msg: TWMSIZE); Message WM_SIZE;
//Nun tippt man noch die folgenden Zeilen Code und das Fenster laesst sich nicht mehr minimieren.
Procedure TForm1.WMSIZE(Var Msg: TWMSIZE);
Begin
// abfangen der Anweisung, das Fenster zu minimieren
If Msg.SizeType = Integer(wsMinimized) Then
Begin
// veranlassen, dass das Fenster wiederhergestellt wird
PostMessage(
Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
End;
End;
Nun, das wäre nur dann perfekt, wenn diese Funktion erst nach der Erstellung der Form aktiv wäre!