Guten Morgen.
Ich habe erstmals den Versuch gestartet, eine Komponente (Label) zu erweitern. Was mich dabei erst einmal zum Verzweifeln gebracht hat, waren die Fehlermeldungen bei dem Versuch
TMyLabel = class(System.Windows.Forms.Label);
einzugeben, weil Auswahlliste nach "System.", nach "System.Windows." und "System.Windows.Forms." immer noch leer blieb. Mangelndes Selbstbewußtsein ließ mich annehmen, dass ich einen Fehler gemacht hatte und ich versuchte erst einmal alles mögliche, bis ich mich entschloss das einfach zu ignorieren.
Jetzt ist mir also gelungen, die Komponente zu erweitern und es klappt auch. Allerdings bin ich mir nicht so recht sicher, ob ich alles richtig gemacht habe oder ob nur zufällig noch kein Fehler aufgetreten ist. Unsicher bin ich mir vor allem bei Create und Dispose - die kommen mir etwas dürftig vor. Deshalb bitte ich Euch, mal kurz meinen Code zu prüfen.
Delphi-Quellcode:
TMyLabel = class(System.Windows.Forms.&Label)
private
FHoch : integer;
FBreit : integer;
published
property Hoch : Integer read FHoch write FHoch;
property Breit : Integer read FBreit write FBreit;
strict protected
procedure Dispose(Disposing: Boolean); override;
private
constructor Create; overload;
end;
constructor TMyLabel.Create;
begin
inherited Create;
//
// Erforderlich für die Unterstützung des Windows Forms-Designers
//
end;
procedure TMyLabel.Dispose(Disposing: Boolean);
begin
inherited Dispose(Disposing);
end;
Vielen Dank und noch einen schönen Tag.
Gruß Jürgen.