Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: zurückgreifen auf Variablen in einer höheren Vererbungss

  Alt 8. Jun 2009, 11:38
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:
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:
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat