, toevoeging van een druk op de knop, de vorm van de titel, creëerde ik een vergadering, laat je de knop aan de vorm van de titel.Hier is de code.,,,,, ______________ ____________ codering, eenheid titlebutton;,,,,,, - interface, ramen, nieuws, SysUtils, klasse, grafische, controles, de dialoog vormen,,,,,, wm_mouseleave = totaal, b014 dollar;,,,,, tchangedproperty = (cpdown cpallowallup cpgroupindex);,,,,,, ttitlebutton = (tcomponent), particuliere, fbuttonrect:;,, fpressed, ffocused: Bull. Fbuttoncaption:,,,, fwidth: touw; gehele getal;,, fleft: gehele getal;,,,, fvisible: Bull. Fhintshow: Bull. Fhint:thintwindow;,,,,,, fhinttext: touw; fgroupindex: gehele getal;,, bloemen en Bull. Fallowallup: Bull.,,,,,, fparent: platform; fparentwidth: gehele getallen;,,,,, ficonwidth: fcallinheritedevent: Bull. Fdefaultwidth:,, de gehele;,,,, fdefaultheight: gehele getal; voor: tfont;,,,, FICON: t; fborder3d, fborderthickness: gehele getal;,, fbuttondown: met andere woorden, fbuttonmove:tmousemoveevent;,,,, fbuttonup: met andere woorden, pmsghandler:twndmethod;,,,, ppaint: met andere woorden: met andere woorden presize;,,,,, gtmp1, gtmp2, gtmp3: Bull.,,, het programma, initializevariables; iconchange (afzender: TObject);,, programma 's setbuttonwidth (breedte: gehele);,, programma setbuttonleft (links: de gehele);,, programma setbuttoncaption (acaption: string);,, setbuttonfont (A - programma: tfont), programma' s, setbuttonvisible; (materiële:,, de procedures van booleaanse); SetIcon (Kang: TAI);,, programma vastgesteld (beneden booleaanse);,, programma setallowallup (aallowallup: BOOrion);,, programma setgroupindex (agroupindex: gehele);,, programma updateproperties (achangedproperty:tchangedproperty);,, de bescherming van messagehandler (var, programma 's, mononatriumglutamaat: tmessage);,, programma captionpaint (var het: tmessage);,, programma captionmousemove (var het: tmessage); captionmousedown (var, programma' s, mononatriumglutamaat: tmessage);,, programma captionmouseup (var het: tmessage);,, programma captionrightmousedown (var het: tmessage);,, programma captiondoubleclick (var het: tmessage);,, programma captionactivate (var het: tmessage);,, programma captionhittest (var het: tmessage); programma 's captionchange (,, de VAR - MSG: tmessage);,, programma parentmousemove (var het: tmessage);,, programma parentmouseup (var het: tmessage, PR);D. Fastener (var het: tmessage);,, programma parentpaint (afzender: TObject);,, programma parentresize (afzender: TObject);,, programma displaysettingchange (var het: tmessage);,, programma - dekking;,,,, de fabrikant (aowner:tcomponent); voor;,, verschrikkelijke vernietigd; - dekking;,, publicatie, breedte: getallen lezen en schrijven eigenschappen fwidth setbuttonwidth;,, de gehele positie: onroerend goed lezen en schrijven setbuttonleft fleft;,, beschrijving: lezen en schrijven. Fbuttoncaption setbuttoncaption;,, eigendom tfont lettertype: voor setbuttonfont lezen, schrijven en eigendom icoon: rust, lezen en schrijven, SetIcon FICON; tiptext, onroerend goed lezen en schrijven. Fhinttext: fhinttext;,, eigendomsrechten duidelijk zichtbaar: lezen, schrijven en setbutto fvisible booleaanseOnzichtbaar, tanden, onroerend goed; allowallup: Bull setallowallup fallowallup, lezen en schrijven, lezen en schrijven; eigenschap: 'booleaanse bloemen en;,, namelijk: de gehele lezen en schrijven eigenschappen fgroupindex setgroupindex;,, lezen en schrijven eigenschappen onmousedown: met andere woorden fbuttondown fbuttondown;,, de muis: lezen, schrijven en Prestaties tmousemoveevent fbuttonmove fbuttonmove, eigendom, onmouseup; fbuttonup: met andere woorden lezen, schrijven fbuttonup;,,,, aan het einde van ttb_setbuttonup = wm_user; totaal + 1;,, programma - register;,,,,, ttitlebutton uitvoering van de fabrikant, het creëren van (aowner:tcomponent);,,,,, te beginnen met de erfenis; fparent:= (eigenaar als platform);,, voor: = tfont creëren.,, fhint:=; thintwindow. Het creëren van (zelf);,, FICON:= rust. Het creëren van,,,,,, aan het einde van ttitlebutton.destr verschrikkelijke;Goj;,,, "," (ficon), waarvoor dan, als ficon.free; (ffont), waarvoor dan, ffont.free;,, als R (fhint) dan fhint.free;,,,,,,,, Inherited; de procedure TTitleButton.loaded;,,,,,,, ", Inherited; initializevariables;,,,,, aan het einde van de procedure; TTitleButton.UpdateProperties (achangedproperty:TChangedProperty);,,,,, amsg:tmessage; var, beginnen amsg.Msg:= TTB_SETBUTTONUP;,,,,,, amsg.WParam:=integer (zelf); amsg.LParamlo:=fgroupindex;,, amsg.LParamHi:=word (achangedproperty); amsg.Result:=0;,,,, fparent.perform (amsg.msg, amsg.wparam, amsg.lparam); en aan het einde van de procedure;,,,,,,, TTitleButton.initializevariables; beginnen, als R (fparent.WindowProc) dan pmsghandler:=fparent.WindowProc;,,,,, I fparent.WindowProc:=messagehandler;(csdesigning F niet in componentstate) en, als de toewijzing,,, (fparent. Onpaint) en, ppaint:= fparent. Onpaint;,, als de distributie (fparent. Onresize) en, presize:= fparent. Onresize;,, fparent. OnPaint:= parentpaint;,, fparent onresize:. = parentresize;,,,, een einde te maken aan de fparent; fparentwidth:=. Breedte;,, zeromemory (@ fbuttonrect, groot (fbuttonrect)); fpressed:= valse;,,,,,, ffocused:= valse; fhintshow:= valse;,,,, ficonwidth:= 16; FICON. Transparantie: = echt;,, FICON. Wijzigingen: = iconchange;,, fhint. Kleur: = clinfobk;,,,, fcallinheritedevent:= valse; fdefaultwidth:= GetSystemMetrics (sm_cxsize);,, als fwidth, fwidth:= fdefaultwidth;,, fdefaultheight:= GetSystemMetrics (sm_cysize);,, fborder3d GetSystemMetrics (= sm_cyedge);,, fborderthickness:= GetSystemMetrics (sm_cysizeframe); gtmp3:= valse;,,,,,,, het einde van de procedure; ttitlebutton. Iconchange (afzender: TObject);,,,, parentpaint (fparent);,,,,, het einde van de procedure; ttitlebutton. Messagehandler (var het: tmessage);,,,, als csdesigning in componentstate dan beginnen, als het ttb_setbuttonup. Mononatriumglutamaat = dan beginnen,) (MSG);,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,,, of, pmsghandler (MSG);,,,,,,, en andere, Als het wm_ncpaint. Mononatriumglutamaat = en het begin van captionpaint (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_nclbuttondown. Mononatriumglutamaat = en het begin van captionmouse.(1) in het kader van;,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_ncmousemove. Mononatriumglutamaat = en het begin van captionmousemove (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) dan pmsghandler (MSG.);,,,, of als het wm_nclbuttonup. Mononatriumglutamaat = en het begin van captionmouseup (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_ncactivate. Mononatriumglutamaat = en het begin van captionactivate (MSG);,,, als de toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_nchittest. Mononatriumglutamaat = en het begin van captionhittest (MSG);,,, als(toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_lbuttonup. Mononatriumglutamaat = en het begin van parentmouseup (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en,,,, pmsghandler (MSG); en, tot slot, als het wm_mousemove. Mononatriumglutamaat = en het begin van parentmousemove (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_ncrbuttondown. Mononatriumglutamaat = en het begin van captionrightmousedown (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_nclbuttondblclk. Mononatriumglutamaat = en het begin van captiondoubleclick (MSG);,,, als:D (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_nclbuttondblclk. Mononatriumglutamaat = en het begin van captiondoubleclick (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,, aan het einde van het,, of als wm_settext. Mononatriumglutamaat = en het begin van captionchange (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als het wm_settingchange. Mononatriumglutamaat = en het begin van displaysettingchange (MSG);,,, als (toewijzing (pmsghandler)) en (fcallinheritedevent) en, pmsghandler (MSG);,,,, of als mononatriumglutamaat. Mononatriumglutamaat = ttb_setbuttonup dan beginnen,) (MSG);,, als (toewijzing (pmsghandler))En dan, fcallinheritedevent), pmsghandler (MSG);,, aan het einde, anders als msg.Msg=WM_MOUSELEAVE dan, ik fhint.ReleaseHandle;,,,,,,, pmsghandler (MSG); einde, anders pmsghandler (MSG);,,,,,,,,,,,,, TTitleButton.CaptionPaint (var msg:tmessage.);,,,,, fcallinheritedevent:=true; beginnen, als fvisible=false dan, uitgang;,, invalidaterect (fparent.handle, @fbuttonrect, valse);,,,,, aan het einde van de procedure; TTitleButton.CaptionMouseMove (var msg:tmessage), var;,,,,, pt:tpoint; tmpstate:tshiftstate;,,,,, fhintwidth:integer beginnen, fcallinheritedevent:=true; als fvisible=false dan;,,,,,, gtmp1:=fpressed uitgang; gtmp2:=ffocused;,,,,,,,, pt.x:=msg.LParamLo-fparent.left; pt.y:=msg.LParamHi-fparent.top, als P;TInRect (fbuttonrect, PT) dan, ik ffocused:=true;,,,,,,, fhintwidth:=fhint.Canvas.TextWidth (fhinttext) als (fhintshow=false) en (lengte (knippen (fhinttext) < > 0) dan, fhint.ActivateHint (rechtstreekse (mouse.cursorpos.x, mouse.cursorpos.y+10, mouse.cursorpos.x+fhintwidth+7, mouse.cursorpos.y+25), fhinttext), fhintshow:=true;,;,, (fbuttonmove) als waarvoor dan, fbuttonmove (fparent, tmpstate, pt.x, pt.y);,, aan het einde, anders, ik ffocused:=false;,,,,,,, fhint.ReleaseHandle; fhintshow:=false;,,,,,,,,,,, fcallinheritedevent:=true;,, de procedure TTitleButton.CaptionMouseDown (var msg:tmessage),,,,,, pt:tpoint; var, tmp1:boolean;,,,,, callevent:boolean; beginnen, callevent:=false;,,,, als fcallinheritedevent:=true;Fvisible=false dan, uitgang; fhintshow:=false;,,,,,, fhint.releasehandle; setforegroundwindow (fparent.handle); tmp1:=fpressed;,,,,,, pt.x:=msg.LParamLo-fparent.left; pt.y:=msg.LParamhi-fparent.top;,, als ptinrect (fbuttonrect, PT) dan, ik gtmp3:=true;,,,, als fgroupindex=0 dan, ik callevent:=true;,,,,, aan het einde van de andere, ",,,," of "(fdown), waarvoor dan als (fbuttondown) dan, fbuttondown (fparent);,,,,,,,, fpressed:=true; ffocused:=true;,, setcapture (fparent.handle);,, aan het einde, anders beginnen, fpressed:=false;,,,,, ffocused:=false;,,,,,,, als tmp1< > fpressed) dan fcallinheritedevent:=false;,,,,, gtmp1:=fpressed; gtmp2:=ffocused;,, parentpaint (FPAHuur);,,, als (callevent) en R (fbuttondown) dan, fbuttondown (fparent);,,,,, aan het einde van de procedure; TTitleButton.CaptionMouseUp (var msg:tmessage);,,, pt: var, Tpoint;,,, ik tmp1, tmp2:boolean;,,,,, fcallinheritedevent:=true; als fvisible=false dan. Releasecapture uitgang;,,,,,,,, tmp1:=fpressed; tmp2:=ffocused;,,,, pt.x:=msg.LParamLo-fparent.left; pt.y:=msg.LParamhi-fparent.top;,, als (ptinrect (fbuttonrect, PT)) en (ffocused = waar), fpressed:=false, anders dan ffocused:=false;,,,,, als (tmp1< > fpressed) of (tmp2< > ffocused)) en (fallowallup en dan fdown), invalidaterect (fparent.handle, @fbuttonrect, waar);,,,, aan het einde van fcallinheritedevent:=true;,,, de procedure TTitleButton.Cap;TionRightMouseDown (var msg:tmessage), var;,,,,,, pt:tpoint; beginnen, fcallinheritedevent:=true;,, als fvisible=false dan, uitgang; fhint.releasehandle;,,,,,, pt.x:=msg.LParamlo-fparent.left; pt.y:= msg.LParamHi-fparent.top;,, als het niet ptinrect (fbuttonrect, PT), anders dan fcallinheritedevent:=true,,,,,, fcallinheritedevent:=false; Aan het einde van de procedure;,,,,,, TTitleButton.CaptionDoubleClick (var msg:tmessage), var, pt:tpoint;,,,,,, fcallinheritedevent:=true; beginnen, als fvisible=false dan, uitgang; pt.x:=msg.LParamlo-fparent.left;,,,,,, pt.y:=msg.LParamhi-fparent.top; de "of" (ptinrect (fbuttonrect, PT)), fcallinheritedevent:=true, Anders dan,,, ik fcallinheritedevent:=false;,,,,, fparent.perform (WM_NCLBUTTONDOWN, msg.wparam, msg.LParam);,,,,,,,,,,,, de procedure TTitleButton.CaptionActivate (var msg:tmessage);,,,,, fcallinheritedevent:=true beginnen, als het niet op, dan, uitgang;,, invalidaterect (fparent.handle @ fbuttonrect, valse);,,,,,,, TTitleButton.CaptionHitTest (var msg:Tmessage).,,,,,, tmp:boolean; var, pt:tpoint;,,,,, fcallinheritedevent:=true; beginnen, als fvisible=false dan, uitgang;,, als fpressed dan, ik tmp:=ffocused;,,,,,, pt.x:=msg.LParamlo-fparent.left; pt.y:=msg.LParamhi-fparent.top;,, als ptinrect (fbuttonrect, PT), ffocused:=true beginnen, dan.,, aan Het einde, anders ffocused:=false;,,,, als ffocused< > tmp dan, invalidaterect (fparent.handle, @fbuttonrect, valse);,,,, als ffocused=false einde;Dan, fhint.releasehandle;,,,,, gtmp1:=fpressed; gtmp2:=ffocused;,,,,,,, fcallinheritedevent:=true;,, de procedure TTitleButton.CaptionChange (var msg:Tmessage);,,,,, fcallinheritedevent:=true; beginnen, als het niet fvisible dan, uitgang;,, invalidaterect (fparent.handle, @fbuttonrect, valse);,,,,,,, de procedure TTitleButton.ButtonUp (var msg:tmessage), var;,,,,, sender:ttitlebutton; tmp:boolean;,,,,, ", tmp:=fdown; fcallinheritedevent:=true;,, sender:= (tcomponent (msg.WParam) als ttitlebutton);,, als (sender< > zelf) en (msg.LParamLo=fgroupindex), beginnen, dan. Tchangedproperty (msg.lparamhi) =cpdown dan, fdown:=false;,,,,, fallowallup:=sender.fallowallup; als tmp< > fdown dan, invalidaterect (fparent.haNdle, @fbuttonrect, valse);,,,,,,,,,,, de procedure TTitleButton.ParentMouseMove (var msg:tmessage), var;,,,,, pt:tpoint; tmppt:tpoint;,,,, tmprect:trect; tmpstate:Tshiftstate;,,,,, fcallinheritedevent:=true; beginnen, als fvisible=false dan, uitgang;,, ffocused:=false; pt.x:=msg.lparamlo;,,,,,, pt.y:=msg.lparamhi-fparent.top; tmppt:=pt;,,,, tmppt.x:=tmppt.x+4; tmppt.y:= 65536-tmppt.y-fparent.top;,,,, tmprect:=fbuttonrect; inflaterect (tmprect, 1,1); en, als ptinrect (tmprect, tmppt) dan, ik ffocused:=true;,,,, als R (fbuttonmove), fbuttonmove (fparent dan. En tmpstate, tmppt.x, tmppt.y);,, als (gtmp1< > fpressed) of (gtmp2< > ffocused) then//als fpressed dan beginnen invalidaterect (fparent.handl,,,E, @fbuttonrect, valse); gtmp1:=fpressed;,,,,,, aan het einde van gtmp2:=ffocused;,,,,,,, als gtmp1< > fpressed) of (gtmp2< > ffocused), beginnen, dan, invalidaterect (fparent.handle, @fbuttonrect, valse); gtmp1:=fpressed;,,,, gtmp2:=ffocused;,,,,,,,, fhintshow:=false; fhint.releasehandle;,,,,,,,, de procedure TTitleButton.ParentMouseUp (var msg:tmessage), var;,,,,, pt:tpoint; tmp:tpoint;,,,, tmprect:trect; tmpcallevent:boolean;,,,,, fcallinheritedevent:=true; beginnen, als fvisible=false uitgang;,,,., tmpcallevent:=false;,,,, fhint.ReleaseHandle; fhintshow:=true;,,,, ReleaseCapture; fpressed:=false;,,,, pt.x:=msg.lParamlo; pt.y:=msg.lParamhi-fparent.top;,,,,, tmp:=pt; tmp.x:=tmp.x+4, tmp.y:=65536-t;Mp.y;,,,, tmp.y:=tmp.y-fparent.top; tmprect:=fbuttonrect;,, inflaterect (tmprect, 0,2); en, als tmp.y< (fparent.top+fparent.Height) dan pt:=tmp;,,, als (ptinrect (tmprect, PT)) en (ffocused) en (gtmp3), beginnen, dan, als fgroupindex< > 0.,,, als fallowallup=true beginnen, dan, fdown:=not (fdown), anders fdown:=true;,,,,,,, gtmp3:=false; updateproperties (cpdown); en (fdown), als het niet dan, tmpcallevent:=true;,, aan het einde, anders tmpcallevent:=true;,,,,,, parentpaint (fparent); of (tmpcallevent=true) en R (fbuttonup) dan, fbuttonup (fparent);,, aan het einde, anders gtmp3:=false;,,,,,,,,, fcallinheritedevent:=true;,, de procedure TTitleButton.parentpaint (sender:tobject); enButtonCanvas:TCanvas var,,,,,,,, textrect:trect; iconrect:trect;,,,,, tmpwidth:integer; beginnen, dan beginnen, als fvisible=false,,, als R (ppaint) dan, ppaint (afzender);,,,,,,, uitgang; (csdesigning, als het niet in componentstate), dan. De eerste, als fwidth fwidth:=fdefaultwidth;,,,,, dan als fleft=0, fleft:=fwidth+1;,, fbuttonrect.left:=fparent.width-fleft- (3 fdefaultwidth) - (fborder3d+fborderthickness); fbuttonrect.right:=fbuttonrect.left+fwidth;,,,,,, fbuttonrect.top:=fborder3d+fborderthickness; fbuttonrect.bottom:=fbuttonrect.top+fdefaultheight- (2*fborder3d); ButtonCanvas:=tcanvas.Create;,,,,,, ButtonCanvas.Handle:=getwindowdc (fparent.handle); fillrect (buttoncanvas.Handle, fbuttonrect, HBRU- (COLOR_BTNFACE+1)); tmpwidth:=fdefaultheight-2;,,,,,, iconrect.left:=fbuttonrect.left; iconrect.top:=fbuttonrect.top;,,,, iconrect.right:=iconrect.left+tmpwidth; iconrect.bottom:=fbuttonrect.top+ fdefaultheight-2*fborder3d;,, als ficon.handle< > 0 dan, subtractrect (textrect, fbuttonrect, iconrect), anders textrect:=fbuttonrect;,,,,, als (ffocused en fpressed) of fdown! Ik drawedge (,,,, ButtonCanvas.Handle, fbuttonrect, EDGE_SUNKEN, BF_SOFT of BF_RECT); textrect.left:=textrect.left+2;,,,,,, textrect.Top:=textrect.Top+1; textrect.right:=textrect.right-1;,,,, iconrect.left:=iconrect.left+3; iconrect.top:=iconrect.top+2;,,,,,, of (b fpressed) of niet (ffocused)) aEn niet (bloemen en dan beginnen,,,), drawedge (buttoncanvas. Aan fbuttonrect, edge_raised, bf_soft of bf_rect);,, textrect. Links: + 1 = textrect. Links, rechts, textrect;.: = textrect. Right-1;,, iconrect. Top: = iconrect. Top + 1;,, iconrect: = iconrect. Links. Links + 2;,,,, aan het einde van buttoncanvas;. Borstel. Stijl: = bsclear;,, buttoncanvas. Lettertype. De verdeling van de (voormalige);,, als FICON. Verwerking < > 0, en dan begon, drawiconex (buttoncanvas handvat, iconrect.. De linker + 1 + 1, iconrect. Top, FICON. Aan tmpwidth-5, fdefaultheight-8,0,0, di_normal); en, als de lengte (TRIM (fbuttoncaption) > 0 en drawtextex (buttoncanvas. Wel, pchar (fbuttoncaption), met een lengte (fbuttoncaption), textrect, dt_left of dt_singleline of dt_vcenter of dt_end_ellipsis of dt_path_ellipsisOf dt_modifystring, geen);,,,,, of, drawtext (buttoncanvas. Wel, pchar (fbuttoncaption), met een lengte (fbuttoncaption), textrect, dt_center of dt_singleline of dt_vcenter of dt_end_ellipsis of dt_path_ellipsis of dt_modifystring);,, buttoncanvas. Vrijheid, als de toewijzing; en (ppaint) en, ppaint (afzender);,,,,,,, aan het einde van het einde van de procedure;; ttitlebutton. Parentresize (afzender: TObject); fcallinheritedevent:= waar,,,,,,,, en als fvisible = onwaar, begint, als de distributie (presize), en, presize (afzender); intrekking;,,,,,, parentpaint einde; (de afzender);,, als opdracht (presize) en, presize (zelf);,,,,,, het einde van de procedure; ttitlebutton. Displaysettingchange (var het: tmessage); fcallinheritedevent:= waar,,,,,,, als fvisible = valse dan In West -T;,, fdefaultwidth:=GetSystemMetrics (SM_CXSIZE);,, als fwidth, fwidth:=fdefaultwidth;,,,, fdefaultheight:=GetSystemMetrics (SM_CYSIZE); fborder3d:=GetSystemMetrics (SM_CYEDGE);,, fborderthickness:= GetSystemMetrics (SM_CYSIZEFRAME);,, parentpaint (fparent);,,,,,,, msg.result:=0; de procedure TTitleButton.setbuttonwidth (,,,, awidth:integer); de eerste,, als awidth> 0, fwidth:=awidth, anders dan fwidth:=fdefaultwidth;,,,,,,, parentpaint (fparent); einde;,,, de procedure TTitleButton.setbuttonleft (aleft:integer);,,, (aleft beginnen, als fleft:=aleft;,,, parentpaint (fparent);,,,,, aan Het einde van de procedure; TTitleButton.setbuttoncaption (acaption:string);,,,,, ", fbuttoncaption:=acaption; parentpaint (fparent);,,,,, aan het einde van de procedure TTitleButton.setbutt;Onfont (afont:tfont);,,, ",,, ffont.assign (afont); parentpaint (fparent);,,,,,,, de procedure TTitleButton.seticon (aicon:ticon);,,, beginnen, ficon.assign (aicon);,, parentpaint (fparent);,,,,,,, TTitleButton.setbuttonvisible (avisible:boolean). Ik fvisible:=avisible;,,,,,,, fparent.perform (WM_NCACTIVATE, de gehele getal (echt) 0);,,,,,,,,,, de procedure TTitleButton.setdown (adown:boolean), var, tmp:boolean;,,,,,, tmp:=fdown; beginnen, als csloading in componentstate fdown:=adown, anders dan,,,,,, als fdown< beginnen, dan beginnen Adown >,,,, als fgroupindex=0, fdown:=false, anders dan beginnen, als fallowallup=true,,,.,,,, fdown:=adown, anders fdown:=true;,,,,,,Einde;,,,,,, als tmp< > fdown dan, updateproperties (cpdown);,,,,,, aan het einde van de procedure; TTitleButton.setallowallup (aallowallup:boolean), var;,,,,,, tmp:boolean; beginnen, fcallinheritedevent:=true;,,,, tmp:=fallowallup; als csloading in componentstate Dan, fallowallup:=aallowallup,, anders beginnen, als fgroupindex<,,,,, fallowallup:=aallowallup > 0; en dan, als tmp< > fallowallup dan, updateproperties (cpallowallup);,,,,,,,,,,,, de procedure TTitleButton.setgroupindex (agroupindex:integer);,,,,, tmp:integer var, beginnen. Tmp:=fgroupindex;,,,, als csloading in componentstate, fgroupindex:=agroupindex, anders dan, ik agroupindex,,, als > =65535 dan, agroupindex:=0;,, als (agroupindex>= 0), dan fgroupindex:= agroupindex;,, als fgroupindex = 0, en dan begon, fallowallup:= valse;,, bloemen en: = valse;,,,, als tmp einde; < > fgroupindex dan, updateproperties (cpgroupindex);;,,,,,,, aan het einde van De procedure register;;,,, (begon ik registercomponents component, [ttitlebutton]);,,,,, aan het einde van _____________; aan het einde van het einde van de code _____________.,,,,, een kopie van de code en de registratie van het dossier, van pas.