, den normale adfærd for dobbelt klik et afsnit bar er at maksimere /genoprette form.følgende kategori ændringer dobbeltklik foranstaltninger til at tilføje en ny virkning, der er rollup /genskabe.,, modtaget følgende enhed og placere det i et register, der er anerkendt af delphi finde vej (dvs. delphi. 5. l.), enhed orckaform,,,,,,,,, - interface ($b -}, anvendelser, beskeder, former, klasser,,,,,,,,, torckaform = klasse (tform), private, foldheight: longint;,, frollup, frolledup: boolean,,, beskyttet, procedure wmncldblclick (var - mng: tmessage); meddelelse wm_nclbuttondblclk;,, procedure wmgetminmaxinfo (var - mng: tmessage); meddelelse wm_getminmaxinfo;, offentlig, konstruktøren skabe (aowner: tcomponent); gearvalg;,, ejendom rollup: boolean læse frollup skrive frollup,,,,,,, gennemførelse, bruger vinduer.,,, procedure torckaform. wmncldblclick (var - mng: tmessage), begynder, hvis (msg.wparam = htcaption) og (frollup), begynder, hvis frolledup så, begynder, frolledup: = falske, højde: = foldheight,,,,,, begynder,, frolledup: = sandt,,, foldheight: = højde, højde: = 0,,,,,,,,,,, som,,,,,,, konstruktøren torckaform. skabe (aowner: tcomponent), begynder, har skabt (aowner);,, foldheight: = højde, frollup: = sandt,,, frolledup: = falske,,,,,,, procedure torckaform. wmgetminmaxinfo (var - mng: tmessage), begynder, har;,, hvis frolledup så, pminmaxinfo (mng. lparam). ptmaxtracksize. y: = højde. i slutningen af,,,,,,,.,,,, at anvende den form, skaber en ny form, som vil se sådan noget..,,, enhed unit3;,,, grænseflade, anvender, vinduer, beskeder, sysutils, klasser, grafik, kontrol, formularer, dialoger,,,,,,,,, tform3 = klasse (tform), private, (private erklæringer},,,,, at tilføje orckaform til anvendelser klausul og ændre på den følgende linje, tform3 = klasse (tform),,,, tform3 = klasse (torckaform),,, løb dit projekt, når du double click titlen form vil rul /genoprette.