Question

In C# i can access base class by base keyword, and in java i can access it by super keyword. How to do that in delphi?
suppose I have following code:

  type
    TForm3 = class(TForm)
  private
    procedure _setCaption(Value:String);
  public
    property Caption:string write _setCaption; //adding override here gives error
  end;

  implementation


procedure TForm3._setCaption(Value: String);
begin
  Self.Caption := Value; //it gives stack overflow      
end;

Answer 1

You are getting a stackoveflow exception because the line

Self.Caption := Value;

is recursive.

You can access the parent property Caption casting the Self property to the base class like so :

procedure TForm3._setCaption(const Value: string);
begin
   TForm(Self).Caption := Value;
end;

or using the inherited keyword

procedure TForm3._setCaption(const Value: string);
begin
   inherited Caption := Value;
end;