Otvoreno programsko okruženje Delphija temelji se na upotrebi različitih komponenata. Komponenta je kôd koji izvodi određeni zadatak koristeći svojstva, događaje i procedure. Kada kreirate komponentu, morate postaviti vrijednosti varijabli i implementirati kod rukovatelja događajima. Da bi se koristila u programu, nova komponenta mora biti uključena u projektni paket.
Neophodno je
Razvojno okruženje za Delphi
Instrukcije
Korak 1
Odaberite vrstu komponente koju želite kreirati. To može biti Windows stavka, grafička stavka, kontrolni objekt ili nevizuelna komponenta. Takođe, vaš objekt može naslijediti iz bilo koje postojeće klase. Odlučite o funkcijama kojima ćete dodijeliti komponentu za implementaciju.
Korak 2
Pokrenite Delphi razvojno okruženje. U glavnom izborniku aplikacije otvorite stavke Komponenta, Nova komponenta. U dijaloškom okviru koji će se pojaviti, u polju Vrsta predaka odaberite klasu komponente koju želite izmijeniti. Ako ne koristite nasljeđivanje, u polje Ime klase jednostavno unesite naziv nove komponente koja započinje slovom "T". U polje Stranica palete, napišite ime kartice komponente nakon instalacije, a zatim kliknite gumb Stvori jedinicu. Razvojno okruženje će automatski generirati predložak za novu komponentu. Primjer generiranog Pascal koda:
jedinica MyBtn;
sučelje
koristi
Windows, SysUtils, poruke, klase, kontrole, grafika, obrasci, StdCtrls, dijalozi;
tip
TMyBtn = klasa (TButton)
privatno
zaštićen
javno
objavljeno
kraj;
postupak Registar;
implementacija
postupak Registar;
početi
RegisterComponents ('MyComponents', [TMyBtn]);
kraj;
kraj.
Istodobno, ne samo da je formirana nova klasa TMyBtn na osnovu standardne klase gumba TButton, već je opisana i procedura za registraciju nove komponente u paleti komponenata.
Korak 3
U privatnoj direktivi opišite sva polja, procedure i funkcije koje su vam potrebne za izradu komponente i ona će imati status skrivenih. Navedite naziv polja (sa slovom "F"), njegov tip. Na primjer, zapis oblika FDatas: integer opisuje varijablu FDatas cijelog broja. U zaštićenom odjeljku navedite upravljače događajima koji su vam potrebni, na primjer, pritiskom na tipkovnicu ili miš. Štoviše, kada nasljeđujete klasu, morate postaviti ključnu riječ override - da biste preklapali roditeljski rukovatelj standardnim događajem. Na primjer, postupak unosa Click; nadjačavanje osigurava presretanje klika miša na gumb.
Korak 4
Funkcije i procedure komponente dostupne korisniku opisane su u javnim i objavljenim direktivama, na primjer, koristeći zapis oblika: function TSysInfo. GetUser: string ili svojstvo MachName: string. U posljednjoj direktivi, kada koristite riječ svojstvo, možete odrediti svojstva koja će biti dostupna u inspektoru objekta.
Korak 5
Napišite detektivni kod za funkcioniranje komponente u deklariranim procedurama i funkcijama. Uzorak koda rukovaoca:
funkcija MachName: string;
var
p: cijeli broj;
sa: PChar;
početi
c: = stralloc (p);
kraj;
kraj.
Korak 6
Instalirajte komponentu u projekt koji vam treba. Iz glavnog izbornika Delphi odaberite Component, Install Component. U dijaloškom okviru koji će se otvoriti otvorite jednu od kartica: U postojeći paket, ako želite instalirati komponentu u postojeći paket, ili U novi paket - u novi. Kliknite U redu i potvrdite zahtjev aplikacije za prepisivanje paketa (ako je potrebno). Nakon toga, napisana komponenta bit će spremna za upotrebu.
