Hallo und guten Tag an alle DP´ler,

Hab mal eine Frage zu der Vererbung, welche ich hier mit der SuFu und auch mit dem Tutorial der Delphi-Treff-Seite nicht vollständig beantworten kann. Vieleicht kann mir hier schnell jemand helfen.

Also ich habe eine Komponente mit 1 Edit und 1 Label. Diese werden in der Ursprungskomponente definiert und auch ihr zusammen Spiel (sprich das Label zeigt das gleich an, wie das Edit). Jetzt möchte ich von dieser Ursprungskomponente eine weitere Komponente ableiten, bei der ich einen gewissen Anhang an die Anzeige des Labels zusätzlich machen möchte. Hierbei gibt es aber ein paar Probleme.

Für alle die dies vieleicht nicht verstanden haben hier ein Beispiel:

Zitat:

In der Ursprungskomponente ist z.B. der Wert des Edit.Text = "2000" und somit hat auch das Label.Caption den Wert "2000".

In der abgeleiteten Komponente möchte ich nun, dass das Label einen Anhang bekommt, also Edit.Text ist immer noch "2000" aber das Label.Caption ist nun "2000m" also eine Erweiterung wurde angehängt.

Wie muss ich in der Ursprungskomponente das TEdit und TLabel deklarieren, damit ich in der Ursprungskomponente immer noch drauf zugreifen kann?

Vielen Dank
BAMatze

Ps.: oder muss ich eine Methode schreiben, die ich dann später überschreibe, in welcher ich dies handle?

in deinem speziellen Fall wäre es das einfachste diese Funktion welche die Labelcaption setzt als virtual zu declarieren und in den protected Abschnitt zu verschieben:

markieren

Delphi-Quellcode:

TBase = class(...)
protected
  procedure UpdateLabelCaption(ANewCaption: String); virtual;
end;

procedure TBase.UpdateLabelCaption(ANewCaption: String);
begin
  Label.caption := ANewCaption;
end;

in der Ableitung sieht das ganze dann so aus:

markieren

Delphi-Quellcode:

TAbleitung = class(TBase)
protected
  procedure UpdateLabelCaption(ANewCaption: String); override;
end;

procedure TAbleitung.UpdateLabelCaption(ANewCaption: String);
begin
  inherited UpdateLabelCaption(ANewCaption + 'm');
end;

Entsprechend müsstest du natürlich im OnChange deines Edits (in der Basisklasse) die Methode UpdateLabelCaption aufrufen.

Hallo SirThornberry,

genau daran hab ich ebend auch gearbeitet, aber ich hab immer versucht auf das Label direkt wieder zurückzugreifen. Deine Methode ist natürlich schön einfach. Dank dir, funzt so wie ich mir das Vorstelle.

Vielen Dank
BAMatze