Eigene Komponenten ableiten, 1

unit ukomp1;
interface
{ 1. richtige Units für zu beerbende Komponente angeben }
uses
  stdctrls { für tedit } , classes { für registerComponents };
{ 2. Typvereinbarung mit Erben von bestehender Komponente }
type
  tMyEdit = class(tcustomedit) { hier noch eine exakte Kopie          }
            end;               { tedit und tcustomedit probieren, was }
                               { ist im Objektinspektor anders ?      }
{ 3. Registrierungsprozedur }
procedure Register;         { ACHTUNG: Register GENAUSO schreiben !!! }

implementation

{ 4. Implementierung der Registrierungsprozedur }
procedure Register;
begin
  registerComponents('Beispiele',[tMyEdit]);
  { der erste Parameter wählt eine bestehende Karteikarte aus oder
    erzeugt eine neue, der zweite Parameter ist eine Menge (in
    eckigen Klammern), die die Namen der neuen Typen durch Komma
    getrennt enthält }
end;

end.

• in Delphi Tools/Bildeditor aufrufen
• mit Datei neu/Komponenten-Ressourcendatei erzeugen
• mit rechter Maustaste auf "Inhalte" mit Neu/Bitmap eine 32*32-Bitmap-Datei erzeugen
  (Anzeige mit Strg-I vergrößern)
• Bitmap wie Typ nennen, also z.B. tMyEdit
• Ressourcendatei unter dem gleichen Namen (bis auf das Suffix .dcr) wie obige Unit abspeichern, also z.B. ukomp1.dcr

• Komponente/Komponente installieren anwählen
• Unit mit Durchsuchen auswählen
• Package im Allgemeinen unverändert lassen
• OK und kompilieren
• diverse Nachfragen nach Einbinden usw. positiv beantworten
• Erfolgsmeldung erscheint, neue Komponente kann wie üblich benutzt werden

Aufgabe 1:

Eigene Komponenten ableiten, 2

• Unit verändern und abspeichern
• Komponente wie gewohnt einbinden
• Package neu kompilieren (nicht vergessen!)

• Komponente/Komponente installieren anwählen
• (irgendeine) Unit mit Durchsuchen auswählen, um in passendes Fenster zu kommen
• richtiges Package wählen
• entsprechende *.pas und *.dcr-Dateien aus Package entfernen
• Package neu kompilieren
• es erscheint eine Meldung über das Entfernen der Komponente

• Komponente wie oben beschrieben entfernen
• Bitmap in *.dcr-Datei bearbeiten und speichern
• Komponente neu einbinden

• in Delphi Komponente/Palette konfigurieren anwählen

.............
type
  tMyEdit = class(tcustomedit) { tCustomEdit hat Eigenschaften ausge- }
            property text;     { blendet, einblenden wie nebenstehend }
            end;

type
  tMyEdit = class(tcustomedit)
            private
              Fzahl : integer;
            published
              property zahl : integer read Fzahl write Fzahl;
            end;

• Wie oben abändern und die neue Eigenschaft zahl erscheint im Objektinspektor.
• Hinter read kann auch eine Funktion z.B. GetZahl, hinter write eine Prozedur z.B. SetZahl stehen. Diese Funktion bzw. Prozedur muss dann unter protected in der Typdefinition erscheinen.

Aufgabe 2:

Aufgabe 3: