Delphis åbne programmeringsmiljø er baseret på brugen af forskellige komponenter. En komponent er kode, der udfører en bestemt opgave ved hjælp af egenskaber, begivenheder og procedurer. Når du opretter en komponent, skal du indstille værdierne for variabler og implementere koden for begivenhedshåndterere. For at blive brugt i programmet skal den nye komponent inkluderes i projektpakken.
Er det nødvendigt
Delphi udviklingsmiljø
Instruktioner
Trin 1
Vælg den type komponent, der skal oprettes. Det kan være et Windows-element, et grafisk element, et kontrolobjekt eller en ikke-visuel komponent. Dit objekt kan også arve fra enhver eksisterende klasse. Beslut dig for de funktioner, som du vil tildele komponenten, der skal implementeres.
Trin 2
Start Delphi-udviklingsmiljøet. I hovedmenuen til applikationen skal du åbne elementerne Komponent, Ny komponent. I den dialogboks, der vises, i feltet Ancestor Type skal du vælge den komponentklasse, du vil ændre. Hvis du ikke bruger arv, skal du blot indtaste et navn på den nye komponent i feltet Klassenavn, der starter med bogstavet "T". I feltet Palette Page skal du skrive navnet på komponentfanen efter installationen og derefter klikke på knappen Opret enhed. Udviklingsmiljøet genererer automatisk en skabelon til den nye komponent. Et eksempel på den genererede Pascal-kode:
enhed MyBtn;
interface
anvendelser
Windows, SysUtils, Beskeder, Klasser, Kontrol, Grafik, Formularer, StdCtrls, Dialoger;
type
TMyBtn = klasse (TButton)
privat
beskyttet
offentlig
offentliggjort
ende;
procedure Register;
implementering
procedure Register;
begynde
RegisterComponents ('MyComponents', [TMyBtn]);
ende;
ende.
På samme tid blev ikke kun en ny klasse TMyBtn dannet på basis af standardklassen for knappen TButton, men også proceduren til registrering af en ny komponent i komponentpaletten er beskrevet.
Trin 3
I det private direktiv beskriver du alle de felter, procedurer og funktioner, du har brug for for at oprette komponenten, og de har status som skjult. Angiv feltnavnet (med bogstavet "F"), dets type. For eksempel beskriver en registrering af formularen FDatas: heltal en variabel FDatas af en heltalstype. I det beskyttede afsnit skal du liste de begivenhedshåndterere, du har brug for, for eksempel fra tastatur- eller musetastetryk. Når du arver en klasse, skal du desuden indstille overordnet nøgleord - for at overlappe den overordnede handler for standardhændelsen. For eksempel indtastningsproceduren Klik på; tilsidesættelse sikrer, at museklik på knappen opfanges.
Trin 4
Funktionerne og procedurerne for den komponent, der er tilgængelig for brugeren, er beskrevet offentligt og offentliggjort direktiver, for eksempel ved hjælp af en registrering af formularen: funktion TSysInfo. GetUser: streng eller egenskab MachName: streng. I det sidste direktiv, når du bruger ordet egenskab, kan du angive egenskaber, der vil være tilgængelige i objektinspektøren.
Trin 5
Skriv den aktuelle kode for komponentens funktion i de erklærede procedurer og funktioner. Prøvehåndteringskode:
funktion MachName: streng;
var
p: heltal;
med: PChar;
begynde
c: = stralloc (p);
ende;
ende.
Trin 6
Installer komponenten i det projekt, du har brug for. Fra Delphi-hovedmenuen skal du vælge Komponent, Installer komponent. I den dialogboks, der vises, skal du åbne en af fanerne: Into existing Package, hvis du vil installere komponenten i en eksisterende pakke eller Into new Package - i en ny. Klik på OK, og bekræft programmets anmodning om at overskrive pakken (hvis nødvendigt). Derefter vil den skrevne komponent være klar til brug.
