Hallo zusammen,
irgendwie stehe ich gerade derbe auf dem Schlauch, und hoffe, mir kann just jemand auf die Sprünge helfen.
Folgendes:
Ich möchte eine Basisklasse TBasisklasse haben, welche ein paar Eigenschaften und ein paar Methoden hat.
Nun möchte ich von dieser Basisklasse drei Kindklassen ableiten. Diese sollen einmal die Eigenschaften und Methoden von der Basisklasse erben, aber eigentlich wie ein TEdit, TLabel bzw. TMemo sein (nur als Beispiel).
Also ungefähr so:
Delphi-Quellcode:
Type
TBasisklasse = Class
private
FEigenschaft1: Integer;
FEigenschaft2: Integer;
FEigenschaft3: Integer;
FWind: String;
Procedure SetWind(Const Value: Integer);
public
Property Wind: String read FWind write SetWind;
End;
TEditklasse = Class(TBasisklasse)
End;
TLabelklasse = class(TBasisklasse)
end;
TMemoklasse = Class(TBasisklasse)
End;
Wenn ich nun also ein Objekt aus der Klasse TEditklasse erzeuge, möchte ich im Prinzip ein TEdit haben, welches aber zusätzlich über die Eigenschaften aus TBasisklasse verfügt.
Der Grund: Wenn an 'SetWind' etwas geändert werden muss, muss dieses dann nur in der Basisklasse gemacht werden.
Ich weiß, dass sich das ziemlich wirr anhört, aber ich hoffe, dass meine Intention jemand versteht.
Ich weiss absolut nicht, wie ich das aufbauen soll
