Zitat von
quendolineDD:
Da TEdit ja abgeleitet wird von TBasisklasse, übernimmt es schon automatisch dessen Eigenschaften, welche in Public und in protected sich befinden.
Ähm, das ist mir schon klar - ein bissel
OOP verstehe ich schon, aber:
TEdit wird nicht von Basisklasse abgeleitet.
Ich möchte eine Klasse, deren Instanz der eines TEdit entspricht, zusätzlich aber die Eigenschaften aus TBasisklasse übernimmt.
Und wie ich schon schrieb: so, wie ich das im Delphi-Code meines ersten Beitrages dargestellt habe, kann das nicht funktionieren; das weiß ich. Aber genau dort liegt ja mein Problem - ich weiß nicht, wie ich dieses Konstrukt erzeugen soll.
Edit:
was ich
nicht möchte, ist soetwas:
Delphi-Quellcode:
Type
TEditklasse = Class(TEdit)
private
FEigenschaft1: Integer;
FEigenschaft2: Integer;
FEigenschaft3: Integer;
FWind: String;
Procedure SetWind(Const Value: Integer);
public
Property Wind: String read FWind write SetWind;
End;
TLabelklasse = class(TLabel)
private
FEigenschaft1: Integer;
FEigenschaft2: Integer;
FEigenschaft3: Integer;
FWind: String;
Procedure SetWind(Const Value: Integer);
public
Property Wind: String read FWind write SetWind;
end;
TMemoklasse = Class(TMemo)
private
FEigenschaft1: Integer;
FEigenschaft2: Integer;
FEigenschaft3: Integer;
FWind: String;
Procedure SetWind(Const Value: Integer);
public
Property Wind: String read FWind write SetWind;
End;