Ein Formular aufrollen

Ein Formular aufrollen

Ein Formular aufrollen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Das Standardverhalten für Doppelklick einer Titelzeile soll das Formular maximieren/wiederherstellen. Die folgende Klasse ändert die Doppelklick-Aktion, um einen neuen Effekt hinzufügen, der RollUp/Restore ist.
Kopieren Sie die folgende Einheit und platzieren Sie es in einem Verzeichnis von Delphi Suchpfad (d.h. \Delphi\5.0\Lib\) anerkannten
Einheit OrckaForm;
Schnittstelle
{$B-}
verwendet
Nachrichten, Formulare, Klassen;
Typ
TOrckaForm = class(TForm)
Private
FOldHeight: Longint;
FRollUp, FRolledUp: Boolean;
geschützt
Procedure WMNCLDblClick (Var Msg: TMessage); Nachricht gedrückt;
Procedure WMGetMinMaxInfo (Var Msg: TMessage); Nachricht WM_GETMINMAXINFO;
öffentliche
Konstruktor Create(AOwner: TComponent); außer Kraft setzen;
Eigenschaft RollUp: Boolean Read FRollUp schreiben FRollUp;
Ende;
Umsetzung
Windows verwendet;
Procedure TOrckaForm.WMNCLDblClick (Var Msg: TMessage);
beginnen
Wenn (Msg.wParam = HTCAPTION) und (FRollUp)
beginnen
Wenn FRolledUp dann
beginnen
FRolledUp: = False;
Höhe: = FOldHeight;

anderes Ende
beginnen
FRolledUp: = True;
FOldHeight: = Höhe;
Höhe: = 0
Ende;
anderes Ende
erbte;
Ende;
Konstruktor TOrckaForm.Create(AOwner: TComponent);
beginnen
geerbte Create(AOwner);
FOldHeight: = Höhe;
FRollUp: = True;
FRolledUp: = False;
Ende;
Procedure TOrckaForm.WMGetMinMaxInfo (Var Msg: TMessage);
beginnen
erbte;
Wenn FRolledUp dann
pMinMaxInfo (Msg.lParam) ^.ptMaxTrackSize.y: = Höhe;
Ende;
Ende.

Verwenden das Formular erstellen ein neues Formular, das in etwa aussehen wird, wie...
Einheit Unit3;
Schnittstelle
verwendet
Windows, Nachrichten, SysUtils, Klassen, Grafiken, Formulare, Steuerelemente Dialoge;
Typ
TForm3 = class(TForm)
Private
{Private Deklarationen}

Die Uses-Clausel OrckaForm hinzu, und ändern Sie die folgende Zeile
TForm3 = class(TForm)
An
TForm3 = class(TOrckaForm)
Führen Sie das Projekt, wenn Sie verdoppeln den Titel des Formulars klicken wird Roll Up/Wiederherstellung.