, revision af denne freeware ekspert, der hjælper du visuelt bygge sammensatte komponenter, beholdere, skik pakning (ccpack 5),,,, det er skik og brug, beholdere, pakke?,,,, ccpack 5 er en freeware pakke, der giver dig mulighed for at visuelt kombinere, udvide og arve vcl beholdere.The package was developed by Sergey Orlik, Product Manager of Inprise Moscow office (Russia, C.I.S. and Baltic States).,,, CCPack 5 works with Delphi/C++Builder 5, and is the evolution of two existing Delphi/C++Builder 3,4 add-ins: Custom Forms Pack (CFPack) and Composite Components Pack (CCPack 4).,,, One of the common uses of CCPack 5 is to create components made of various components:,,, * CCPack Introduction movie (~337K),,,,Downloads,,,, * Custom Containers Pack (CCPack 5) for Delphi/C++Builder 5 (~695K),,, * CCPack 4.5 for Delphi/C++Builder 3 and 4 (~591K),,, * CFPack 4.3 for Delphi/C++Builder 4 (~129K),,, * CFPack 1.01 for Delphi/C++Builder 3 (old and non-modified version) (~45K),,, Full source code is provided and you can modify ituden begrænsning for ikke - kommercielle projekter.lad forfatteren, hvis du ønsker at bruge denne software i deres kommercielle projekter pr. e - mail til [email protected] med angivelse af værktøj navn i emnet.,,,, en stikprøve sammensat komponent,,,,, efter du har installeret ccpack, er du klar til det første eksempel.,,, luk alle delphi - projekter.i "journal" menu vælge "nye" vælg "skik beholder" (eller "kompositte" i delphi, 3 /4) i de "nye poster" dialog, og klik på "okay".i den nye beholder "dialog vælge" tframe ", skriver" tfilecomposite "i" nye klasse navn "område, og tryk på" færdig ".,,, en form forekommer.overfladen er overfladen på din nye delphi - komponenten.fastsat følgende egenskaber i den genstand, inspektør:,,, af bredde = 281, højde = 164, vil dette være den misligholdelse, størrelse af den del.smid et panel på form, og dets egenskaber:,,, tilpasse = alleft, bredde = 130, bevelouter = bvnone, beskrive =,, constraints.minwidth = 110, smid en egotripper til højre for panelet.det vil bringe automatisk til den side af panelet.smid en drivecombobox og en directorylistbox i panelet og fastsætte deres egenskaber:,,, drivecombobox:,, venstre = 0, top = 0, bredde = 130, højde = 19, ankre = [akleft, aktop, akright],,, directorylistbox:,, venstre = 0, top = 19, bredde = 130, højde = 145, ankre = [akleft, aktop, akright, akbottom], klik på højre side af form, og smid en filelistbox:,,, tilpasse = alclient,, taborder = 0,,, med det vi har afsluttet den visuelle grænseflade vores sammensat komponent.nu er det tid til at tilføje en kode for "sammenhæng" komponenter.dobbeltklik på den drivecombobox og ændringen begivenhed kontaktperson skriver:,,, procedure tfilecomposite. drivecombobox1change (afsender: tobject), begynder, directorylistbox1. kør: = drivecombobox1. kør,,,,,,, double click den directorylistbox og ændringen begivenhed kontaktperson skriver:,,, procedure tfilecomposite. directorylistbox1change (afsender: tobject), begynder, filelistbox1. fortegnelse: = directorylistbox1. fortegnelse,,,,,,, med det, vi har gennemført den grundlæggende opførsel af vores sammensat komponent, som for programming interface vil arve metoder og egenskaber fra tframe (den base, klasse, vi valgte, da vi skabte komponent).lad os tilføje et par offentlige egenskaber: filnavn og register.i erklæringen af klasse tilføje:,,,,,,,, tfilecomposite = klasse (tframe),,,,,,, beskyttet (beskyttede erklæringer), funktion getfilename: string;,, procedure setfilename (filnavn: tråd), fungerer getdirectory: string,,,,,,, setdirectory procedure (fortegnelse: string), offentlig, {offentlige erklæringer), ejendom filnavn: streng læser getfilename skrive setfilename;,, ejendom, fortegnelse: string læse getdirectory skrive setdirectory,,,,,,,, - gennemførelse, er meget enkel.det, vi får, og fastsætte filnavn af filelistbox og registret tilhører directorylistbox:,,, funktion tfilecomposite.getfilename: string;,, begynder, resultat: = filelistbox1. filnavn,,,,,,, procedure tfilecomposite. setfilename (filnavn: tråd), begynder, filelistbox1.filename: = filnavn,,,,,,, funktion tfilecomposite.getdirectory: string;,, begynder, resultat: = directorylistbox1. fortegnelse,,,,,,, procedure tfilecomposite. setdirectory (fortegnelse: string), begynder, directorylistbox1. fortegnelse: = fortegnelse,,,,,,, så lad os nu tilføj tre begivenheder: ændring, klik, og dblclick.i erklæringen af klasse tilføje:,,,,,,,, tfilecomposite = klasse (tframe),,,,,,, private, (private erklæringer), fonchange: tnotifyevent;,, fonclick: tnotifyevent;,, fondblclick: tnotifyevent;,, beskyttet,,,,,, -:,, der er offentliggjort, (offentliggjort erklæringer), ejendom onchange: tnotifyevent læse fonchange skrive fonchange;,, ejendom onclick: tnotifyevent læse fonclick skrive fonclick;,, ejendom ondblclick: tnotifyevent læse fondblclick skriver, fondblclick,,,,,,,, så du kan gætte på, at disse begivenheder vil blive udløst af den ændring, klik, og dblclick begivenheder af filelistbox, så skaber de tilsvarende tilfælde -ndlers og skriv følgende:,,, procedure tfilecomposite. filelistbox1change (afsender: tobject), begynder, hvis tildelt (fonchange), så fonchange (selvstændige),,,,,,, procedure tfilecomposite. filelistbox1click (afsender: tobject), begynder, hvis tildelt (fonclick), så fonclick (en);,,,,,, procedure tfilecomposite. filelistbox1dblclick (afsender: tobject), begynder, hvis tildelt (fondblclick), så fondblclick (selvstændige),,,,,,,, hvis du gad vide, om de tildelte opgaver, lad mig forklare.fonchange er et område af type tnotifyevent, og det betyder, at det kan holde den adresse, en procedure for objekt, som er en "afsender: tobject" parameter.eller det kan være nul, så må vi sørge for, at fonchange er ikke nul, før de kalder "fonchange (selvstændige)".til gengæld vil ikke arbejde:,,, hvis fonchange < > nul, så... det skyldes, at henvise fonchange er truffet af de som en påberåbelse af den procedure, som det henviser til.da det er en procedure, der ikke vender tilbage til en værdi af type i overensstemmelse med et point, - - så vi kan ikke sammenligne det med nul), men før den viden, de vil finde, at vi har glemt de parameter (afsender) i opfordringen til at fonchange...det er ikke vor hensigt at kalde den procedure, fonchange punkter, men at vide, om værdien af fonchange ikke er nul.det er formålet med den indbyggede tildelt funktion, der anvendes over.,,, med henblik på f.eks. det er det.kan du installere enheden, og så bruge den del af komponenter palet, eller du kan omfatte enhed i en test, projekt - og skabe den komponent af kode, som vi gjorde i test application for at redde dig fra at installere en ubrugelig komponent.,,, som du kan se, med ccpack en med lidt erfaring med. komponent skriftligt kan bygge kombinerede komponenter hurtigt og let.,,,, mere information,,,, du kan finde flere oplysninger om ccpack, og finde andre komponenter i sergej orlik hjemmeside.,,, du kan finde den fulde kildekode af denne artikel i arkivet, der ledsager pascal nyhedsbrev