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.