„Delphi“atvira programavimo aplinka pagrįsta įvairių komponentų naudojimu. Komponentas yra kodas, kuris atlieka konkrečią užduotį naudodamas ypatybes, įvykius ir procedūras. Kurdami komponentą, turite nustatyti kintamųjų reikšmes ir įdiegti įvykių tvarkytuvų kodą. Norint naudoti programą, naujas komponentas turi būti įtrauktas į projekto paketą.
Tai būtina
„Delphi“kūrimo aplinka
Nurodymai
1 žingsnis
Pasirinkite norimo sukurti komponento tipą. Tai gali būti „Windows“elementas, grafinis elementas, valdymo objektas arba ne vizualinis komponentas. Be to, jūsų objektas gali būti paveldėtas iš bet kurios esamos klasės. Nuspręskite funkcijas, kurias paskirsite komponentui įgyvendinti.
2 žingsnis
Paleiskite „Delphi“kūrimo aplinką. Pagrindiniame programos meniu atidarykite komponentus, naujus komponentus. Pasirodžiusiame dialogo lange lauke „Protėvio tipas“pasirinkite komponentų klasę, kurią norite keisti. Jei nenaudojate paveldėjimo, lauke „Klasės pavadinimas“tiesiog įveskite naujo komponento pavadinimą, prasidedantį raide „T“. Lauke Paletės puslapis po įdiegimo įrašykite komponento skirtuko pavadinimą, tada spustelėkite mygtuką Sukurti vienetą. Kūrimo aplinka automatiškai sugeneruos naujo komponento šabloną. Sugeneruoto „Pascal“kodo pavyzdys:
vienetas „MyBtn“;
sąsaja
naudoja
„Windows“, „SysUtils“, pranešimai, klasės, valdikliai, grafika, formos, „StdCtrls“, dialogai;
tipo
TMyBtn = klasė (TButton)
privatus
saugomi
visuomenės
paskelbta
galas;
procedūrų registras;
įgyvendinimas
procedūrų registras;
pradėti
„RegisterComponents“(„Mano komponentai“, [TMyBtn]);
galas;
galas.
Tuo pačiu metu, remiantis standartine mygtuko „TButton“klase, buvo suformuota ne tik nauja „TMyBtn“klasė, bet ir aprašyta naujo komponento registravimo komponentų paletėje tvarka.
3 žingsnis
Privačioje direktyvoje aprašykite visus laukus, procedūras ir funkcijas, kurių jums reikia norint sukurti komponentą, ir jie bus paslėpti. Nurodykite lauko pavadinimą (su raide „F“), jo tipą. Pavyzdžiui, formos „FDatas: integer“įrašas apibūdina sveiko skaičiaus tipo kintamąjį FDatas. Apsaugotame skyriuje išvardykite reikalingus įvykių tvarkytuvus, pavyzdžiui, paspaudę klaviatūrą ar pelę. Be to, paveldėdami klasę turite nustatyti nepaisymo raktinį žodį - kad sutaptų standartinio įvykio pagrindinis tvarkytuvas. Pavyzdžiui, įvedimo procedūra Spustelėkite; nepaisymas užtikrina, kad pelės paspaudimas ant mygtuko bus perimtas.
4 žingsnis
Vartotojo pasiekiamo komponento funkcijos ir procedūros yra aprašytos viešose ir paskelbtose direktyvose, pavyzdžiui, naudojant formos įrašą: funkcija TSysInfo. GetUser: eilutė arba ypatybė MachName: eilutė. Paskutinėje direktyvoje, kai naudojate žodį nuosavybė, galite nurodyti ypatybes, kurios bus prieinamos objekto tikrintuve.
5 žingsnis
Parašykite faktinį komponento veikimo kodą deklaruojamose procedūrose ir funkcijose. Rodyklės kodo pavyzdys:
funkcija MachName: eilutė;
var
p: sveikasis skaičius;
su: PChar;
pradėti
c: = strallokas (p);
galas;
galas.
6 žingsnis
Įdiekite komponentą į jums reikalingą projektą. Pagrindiniame „Delphi“meniu pasirinkite „Component“, „Install Component“. Pasirodžiusiame dialogo lange atidarykite vieną iš skirtukų: Į esamą paketą, jei norite įdiegti komponentą į esamą paketą, arba Į naują paketą - į naują. Spustelėkite Gerai ir patvirtinkite programos prašymą perrašyti paketą (jei reikia). Po to parašytas komponentas bus paruoštas naudoti.
