Otvoreno programsko okruženje Delphija temelji se na korištenju različitih komponenata. Komponenta je kôd koji izvodi određeni zadatak koristeći svojstva, događaje i postupke. Prilikom izrade komponente trebate postaviti vrijednosti varijabli i implementirati kod rukovatelja događajima. Da bi se koristila u programu, nova komponenta mora biti uključena u projektni paket.
Nužno je
Delphi razvojno okruženje
Upute
Korak 1
Odaberite vrstu komponente koju želite stvoriti. To može biti Windows stavka, grafička stavka, kontrolni objekt ili nevizualna komponenta. Također, vaš objekt može naslijediti iz bilo koje postojeće klase. Odlučite o funkcijama kojima ćete dodijeliti komponentu za provedbu.
Korak 2
Pokrenite Delphi razvojno okruženje. U glavnom izborniku aplikacije otvorite stavke Komponenta, Nova komponenta. U dijaloškom okviru koji se pojavi, 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 naziv kartice komponente nakon instalacije, a zatim kliknite gumb Stvori jedinicu. Razvojno okruženje automatski će generirati predložak za novu komponentu. Primjer generiranog Pascal koda:
jedinica MyBtn;
sučelje
koristi
Windows, SysUtils, poruke, klase, kontrole, grafike, obrasci, StdCtrls, dijaloški okviri;
tip
TMyBtn = klasa (TButton)
privatni
zaštićen
javnost
Objavljeno
kraj;
postupak Registar;
provedba
postupak Registar;
početi
RegisterComponents ('MyComponents', [TMyBtn]);
kraj;
kraj.
Istodobno, ne samo da je formirana nova klasa TMyBtn na temelju standardne klase gumba TButton, već je opisan i postupak registracije nove komponente u paleti komponenata.
3. korak
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 tipku miša. Štoviše, prilikom nasljeđivanja klase morate postaviti ključnu riječ override - da bi se preklapao roditeljski rukovatelj standardnim događajem. Na primjer, postupak unosa Click; nadjačavanje osigurava presretanje klika miša na gumb.
4. korak
Funkcije i postupci komponente dostupni korisniku opisani su u javnim i objavljenim smjernicama, 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
U deklarirane postupke i funkcije napišite stvarni kod za funkcioniranje komponente. Uzorak koda rukovaoca:
funkcija MachName: string;
var
p: cijeli broj;
uz: PChar;
početi
c: = stralloc (p);
kraj;
kraj.
Korak 6
Instalirajte komponentu u projekt koji vam treba. Na glavnom izborniku Delphi odaberite Component, Install Component. U dijaloškom okviru koji će se otvoriti otvorite jednu od kartica: U postojeći paket, ako želite komponentu instalirati 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.
