Конструктор Delphi как (наследовать создание Parent.Parent) или (вызвать Parent.Parent.Create)

Question

Привет я пытаюсь вызвать parent.create родителей эффективно обходя parent.create

вот пример

unit InheritedTest;

interface

  type
  IMyExample = interface
    ['{4B281573-99CC-4B9D-9895-F6BCD0E26F26}']
    procedure Set_MyMessage(const Value: String);
    function Get_MyMessage: String;
    property _MyMessage: String read Get_MyMessage write Set_MyMessage;
  end;

  TMyExample1 = class(TInterfacedObject, IMyExample)
  protected
    fMyMessage: String;
    procedure Set_MyMessage(const Value: String);
    function Get_MyMessage: String;
  published
    property _MyMessage: String read Get_MyMessage write fMyMessage;
    constructor Create();
  end;

  TMyExample2 = class( TMyExample1)
    constructor Create();
  end;

  TMyExample3 = class( TMyExample2)
    constructor Create();
    constructor CreateBypassingTMyExample2Create();
  end;

implementation

{ TMyExample1 }

constructor TMyExample1.Create();
begin
  inherited;
  fMyMessage := 'TMyExample1';
end;

function TMyExample1.Get_MyMessage: String;
begin
  Result := fMyMessage;
end;

procedure TMyExample1.Set_MyMessage(const Value: String);
begin
  fMyMessage := Value;
end;

{ TMyExample2 }

constructor TMyExample2.Create;
begin
  inherited;
  fMyMessage := fMyMessage + ' TMyExample2';
end;

{ TMyExample3 }

constructor TMyExample3.Create;
begin
  inherited;
  fMyMessage := fMyMessage + ' TMyExample3.1';
end;

constructor TMyExample3.CreateBypassingTMyExample2Create;
begin
  //inherited TMyExample1.Create;
  inherited ClassParent.Create;
  fMyMessage := fMyMessage + ' TMyExample3.2';
end;

end.

Если я создам каждый из этих классов и выведу сообщение

uses InheritedTest;  

...... 

procedure DoCreateTests;
var
  vMyIMyExample1, vMyIMyExample2, vMyIMyExample3_1, vMyIMyExample3_2 : IMyExample;
begin
  vMyIMyExample1 := TMyExample1.Create;
  vMyIMyExample2 := TMyExample2.Create;
  vMyIMyExample3_1 := TMyExample3.Create;
  vMyIMyExample3_2 := TMyExample3.CreateBypassingTMyExample2Create;

  Memo1.Lines.Add( 'vMyIMyExample1._MyMessage = ' + vMyIMyExample1._MyMessage );
  Memo1.Lines.Add( 'vMyIMyExample2._MyMessage = ' + vMyIMyExample2._MyMessage );
  Memo1.Lines.Add( 'vMyIMyExample3_1._MyMessage = ' + vMyIMyExample3_1._MyMessage );
  Memo1.Lines.Add( 'vMyIMyExample3_2._MyMessage = ' + vMyIMyExample3_2._MyMessage );
end;

на данный момент это вывод

vMyIMyExample1._MyMessage = TMyExample1
vMyIMyExample2._MyMessage = TMyExample1 TMyExample2
vMyIMyExample3_1._MyMessage = TMyExample1 TMyExample2 TMyExample3.1
vMyIMyExample3_2._MyMessage = TMyExample3.2

я пытаюсь получить вызов TMyExample3.CreateBypassingTMyExample2Create для вывода

vMyIMyExample3_2._MyMessage = TMyExample1 TMyExample3.2

что мне нужно изменить в этом вызове, чтобы сделать эту работу? Можно ли сделать это без изменения или (добавив другой конструктор) в TMyExample2.create

constructor TMyExample3.CreateBypassingTMyExample2Create;
begin
  //inherited TMyExample1.Create;
  inherited ClassParent.Create;
  fMyMessage := fMyMessage + ' TMyExample3.2';
end;

Answer 1

Я получил его на работу, выполнив следующее

constructor TMyExample3.CreateBypassingTMyExample2Create;
begin
  if self.ClassType.InheritsFrom(TMyExample1) then
    TMyExample1(self).Create;
  fMyMessage := fMyMessage + ' TMyExample3.2';
end;