Delphi-nin açıq proqramlaşdırma mühiti müxtəlif komponentlərin istifadəsinə əsaslanır. Komponent, xüsusiyyətləri, hadisələri və prosedurları istifadə edərək müəyyən bir tapşırığı yerinə yetirən koddur. Bir komponent yaratarkən, dəyişənlərin dəyərlərini təyin etməli və hadisə işləyicilərinin kodunu tətbiq etməlisiniz. Proqramda istifadə olunmaq üçün yeni komponent layihə paketinə daxil edilməlidir.
Vacibdir
Delphi inkişaf mühiti
Təlimat
Addım 1
Yaratılacaq komponent növünü seçin. Bir Windows maddəsi, qrafik elementi, idarəetmə obyekti və ya əyani olmayan bir komponent ola bilər. Ayrıca, obyektiniz mövcud olan hər hansı bir sinifdən miras ala bilər. İcra etmək üçün komponenti təyin edəcəyiniz funksiyalara qərar verin.
Addım 2
Delphi inkişaf mühitinə başlayın. Əsas tətbiq menyusunda Komponent, Yeni Komponent maddələrini açın. Görünən informasiya qutusunda, Ancestor Type sahəsində dəyişdirmək istədiyiniz komponent sinfini seçin. Mirasdan istifadə etmirsinizsə, Sinif Adı sahəsinə, sadəcə "T" hərfi ilə başlayan yeni komponent üçün bir ad daxil edin. Palet Səhifəsi sahəsində, quraşdırıldıqdan sonra komponent nişanının adını yazın, sonra Vahid yarat düyməsini vurun. İnkişaf mühiti avtomatik olaraq yeni komponent üçün bir şablon yaradır. Yaradılan Paskal kodunun bir nümunəsi:
vahid MyBtn;
interfeys
istifadə edir
Windows, SysUtils, Mesajlar, Siniflər, Controls, Graphics, Forms, StdCtrls, Dialogs;
növü
TMyBtn = sinif (TButton)
özəl
qorunur
ictimai
nəşr edilmişdir
son;
prosedur Qeydiyyatı;
tətbiqetmə
prosedur Qeydiyyatı;
başlamaq
RegisterComponents ('MyComponents', [TMyBtn]);
son;
son
Eyni zamanda, TButton düyməsinin standart sinfi əsasında yalnız yeni bir TMyBtn sinfi yaranmış deyil, eyni zamanda komponent palitrasında yeni bir komponentin qeydiyyatı proseduru da təsvir edilmişdir.
Addım 3
Xüsusi direktivdə, komponent yaratmağınız üçün lazım olan bütün sahələri, prosedurları və funksiyaları təsvir edin və onlar gizli statusa sahib olacaqlar. Sahənin adını ("F" hərfi ilə), növünü göstərin. Məsələn, FDatas: integer formasının bir qeydində tamsayı tipli bir FDatas dəyişən təsvir olunur. Qorunan hissədə, məsələn, klaviatura və ya siçan düymələrini basmaqla ehtiyac duyduğunuz hadisə işləyicilərini siyahıya alın. Üstəlik, bir sinif miras qaldıqda, standart hadisənin üst işləyicisi ilə üst-üstə düşmək üçün ləğv açar sözünü təyin etməlisiniz. Məsələn, giriş proseduru Click; ləğv etmək düyməni siçanın vurmasına mane olur.
Addım 4
İstifadəçinin istifadəsində olan komponentin funksiyaları və prosedurları ümumi və dərc olunmuş direktivlərdə təsvir olunur, məsələn, forma qeydindən istifadə edərək: function TSysInfo. GetUser: string və ya xüsusiyyət MachName: string. Son direktivdə, əmlak sözündən istifadə edərkən, obyekt müfəttişində mövcud olacaq xüsusiyyətləri təyin edə bilərsiniz.
Addım 5
Bəyan edilmiş prosedur və funksiyalarda komponentin işləməsi üçün həqiqi kodu yazın. Nümunə işləyici kodu:
funksiyası MachName: string;
var
p: tam;
ilə: PChar;
başlamaq
c: = stralloc (p);
son;
son
Addım 6
Komponenti sizə lazım olan layihəyə quraşdırın. Delphi əsas menyusundan Component, Install Component seçin. Görünən informasiya qutusunda, nişanlardan birini açın: Komponenti mövcud bir paketə yükləmək istəyirsinizsə, mövcud Paket içərisinə və ya Yeni Paketə - yenisinə. Tamam düyməsini vurun və tətbiqetmənin paketin üzərinə yazmaq istəyini təsdiqləyin (lazım olduqda). Bundan sonra yazılan komponent istifadəyə hazır olacaqdır.
