Standarden atferd for å dobbeltklikke en tittellinje er å maksimere /gjenopprette form. Følgende klassen endrer dobbeltklikk tiltak for å legge til en ny effekt som er samle /Restore.Copy følgende enhet og legg den i en katalog som er anerkjent av delphi søkebanen (dvs. \\ Delphi \\ 5.0 \\ Lib \\) enhet OrckaForm; grensesnitt {$ B-} bruker Meldinger, Skjemaer, Klasser -typen TOrckaForm = klasse (TForm) private FOldHeight: Longint; FRollUp, FRolledUp: Boolean; beskyttet prosedyre WMNCLDblClick (var Msg: TMessage); Meldingen WM_NCLBUTTONDBLCLK; Prosedyren WMGetMinMaxInfo (var Msg: TMessage); Meldingen WM_GETMINMAXINFO; offentlig konstruktør Opprette (AOwner: TComponent); styre; Eiendommen samle: Boolean lese FRollUp skrive FRollUp; enden, implementationuses Windows; prosedyre TOrckaForm.WMNCLDblClick (var Msg: TMessage); begynne if (Msg.wParam = HTCAPTION) og (FRollUp) da begynne hvis FRolledUp deretter begynne FRolledUp: = False; Høyde: = FOldHeight; ende annet begynne FRolledUp: = true; FOldHeight: = Høyde; Høyde: = 0 slutten; ende annet arvet; ende; konstruktør TOrckaForm.Create (AOwner: TComponent); begynne arvet Opprette (AOwner); FOldHeight: = Høyde; FRollUp: = true; FRolledUp: = False; ende; prosedyre TOrckaForm.WMGetMinMaxInfo (var Msg: TMessage), begynner arvet; . hvis FRolledUp deretter pMinMaxInfo (Msg.lParam) ^ ptMaxTrackSize.y: = høyde; ende, end.To bruk skjemaet opprette et nytt skjema som vil se noe like..unit Unit3; interfaceuses Windows, Meldinger, SysUtils, klasser, Grafikk , kontroller, skjemaer, Dialoger, skriver TForm3 = klasse (TForm) private {felleserklæringer} Legg OrckaForm til bruk klausulen og endre følgende lineTForm3 = klasse (TForm) toTForm3 = klasse (TOrckaForm) kjøre prosjektet ditt, når du dobbeltklikker på Tittelen skjemaet vil rulle opp /restore. Anmeldelser