Delphis öppna programmeringsmiljö bygger på användningen av olika komponenter. En komponent är kod som utför en specifik uppgift med hjälp av egenskaper, händelser och procedurer. När du skapar en komponent måste du ställa in värden på variabler och implementera koden för händelsehanterare. För att kunna användas i programmet måste den nya komponenten ingå i projektpaketet.
Det är nödvändigt
Delphi utvecklingsmiljö
Instruktioner
Steg 1
Välj typ av komponent som ska skapas. Det kan vara ett Windows-objekt, grafiskt objekt, kontrollobjekt eller icke-visuell komponent. Ditt objekt kan också ärva från vilken klass som helst. Bestäm vilka funktioner du ska tilldela komponenten att implementera.
Steg 2
Starta Delphi-utvecklingsmiljön. I huvudmenyn till applikationen öppnar du komponenterna Komponent, Nya komponenter. Välj den komponentklass som du vill ändra i fältet Ancestor Type i dialogrutan som visas. Om du inte använder arv i fältet Klassnamn anger du helt enkelt ett namn för den nya komponenten som börjar med bokstaven "T". I fältet Palett sida skriver du namnet på komponentfliken efter installationen och klickar sedan på knappen Skapa enhet. Utvecklingsmiljön genererar automatiskt en mall för den nya komponenten. Ett exempel på den genererade Pascal-koden:
enhet MyBtn;
gränssnitt
användningsområden
Windows, SysUtils, Messages, Classes, Controls, Graphics, Forms, StdCtrls, Dialogs;
typ
TMyBtn = klass (TButton)
privat
skyddad
offentlig
publiceras
slutet;
förfarande Register;
genomförande
förfarande Register;
Börja
RegisterComponents ('MyComponents', [TMyBtn]);
slutet;
slutet.
Samtidigt bildades inte bara en ny klass TMyBtn på grundval av standardklassen för TButton-knappen, utan beskrivs också proceduren för registrering av en ny komponent i komponentpaletten.
Steg 3
I det privata direktivet, beskriv alla fält, procedurer och funktioner som du behöver för att skapa komponenten, så kommer de att ha status som dolda. Ange fältnamnet (med bokstaven "F"), dess typ. Till exempel beskriver en post av formuläret FDatas: heltal en variabel FDatas av en heltalstyp. I det skyddade avsnittet listar du de händelseshanterare du behöver, till exempel från tangentbords- eller musknapptryckningar. När du ärver en klass måste du dessutom ställa in åsidosättningsnyckelordet - för att överlappa den överordnade hanteraren av standardhändelsen. Till exempel inmatningsförfarandet Klicka på; åsidosättande säkerställer att musklicket på knappen fångas upp.
Steg 4
Funktionerna och procedurerna för komponenten som är tillgängliga för användaren beskrivs i allmänheten och publicerade direktiv, till exempel med hjälp av en post av formen: funktion TSysInfo. GetUser: sträng eller egenskap MachName: sträng. I det senaste direktivet, när du använder ordet egenskap, kan du ange egenskaper som kommer att finnas tillgängliga i objektinspektören.
Steg 5
Skriv den faktiska koden för komponentens funktion i deklarerade procedurerna och funktionerna. Exempelhanterarkod:
funktion MachName: sträng;
var
p: heltal;
med: PChar;
Börja
c: = stralloc (p);
slutet;
slutet.
Steg 6
Installera komponenten i det projekt du behöver. Från Delphi-huvudmenyn väljer du Komponent, Installera komponent. I dialogrutan som öppnas öppnar du en av flikarna: Into existing Package, om du vill installera komponenten i ett befintligt paket eller Into new Package - till ett nytt. Klicka på OK och bekräfta programmets begäran om att skriva över paketet (om det behövs). Därefter är den skriftliga komponenten redo att användas.
