MDIChilds Systembuttons deaktivieren

[torsti.j]

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!