Hi!
bin gerade via Lazarus an erstellen einer Klasse, welche eine Urklasse
Besitzt und deren Property aus den klassen, welche auf diese zugreifen
anstoßen soll.
Klartext:
TBauelemente = class(TGraphicControl)
private
{ Private declarations }
.
strict protected
BEAllg: TBEAllg;
protected
{ Protected declarations }
public
{ Public declarations }
. Index: String;
Procedure SetDatensatz(_Index: Byte; Value: String);
published
{ Published declarations }
property Datensatz[Value:Byte]: String read GetDatensatz write
SetDatensatz; Override;
Constructor Create(AOwner: TComponent); Override;
end; <<< Dies ist die Urklasse.
Über die erbende Klasse soll der "Datensatz" angestoßen werden und sich
selbstständig die Daten einladen.
Wenn jemand einen Tip hat, bin i sehr dankbar.
Fehler gefunden!!! Kann geschloßen und gelöscht werden.
Antwort schreiben
Bitte melde dich an, um einen Beitrag zu schreiben.