Наследование

[notHaker]

Здравствуйте! Проблема в следующем

type
TObject1 = class
public
  procedure Call1;
  procedure Call2; virtual; abstract;
end;

TObject2 = class(TObject1)
  procedure Call2; override;
end;

...

procedure TObject1.Call1;
begin
...
Call2;
...
end;

procedure TObject2.Call2;
begin
  inherited;
end;

Уже много кода написал по такой заготовке(очень много!). Всё перепахивать заново - жесть. Такая заготовка не работает, запарился.

Требуется:
Создать объект TObject2. И вызвать его метод Call1 да так, чтобы наследуемый метод Call2 тоже вызывался. не работает. Ребят, помогите!

[Пепел Феникса]

procedure TObject2.Call2;
begin
  inherited;//вызовет старый
  ShowMessage('Привет');//должно показать сообщение(в конструкторах работает, должно и здесь)
end;

[notHaker]

Я тоже так думал. Не вызывается. Call1 принадлежит предку и вызывает предок свой метод Call2, а не наследника. А надо чтобы вызывал метод наследника.

[Пепел Феникса]

а понял проблему...ступил просто..

type
TObject1=class
public
  procedure Call1;
  procedure Call2; virtual; abstract;
end;

TObject2 = class(TObject1)
  procedure Call2; override;
end;


implementation

{$R *.dfm}

procedure TObject1.Call1;
begin
Call2;
end;

procedure TObject2.Call2;
begin
 inherited;
 ShowMessage('123');
end;

var O:TObject1;

procedure TForm1.FormCreate(Sender: TObject);
begin
 O:=TObject2.Create
end;

procedure TForm1.FormClick(Sender: TObject);
begin
 O.Call1;
end;

Д6 работает отменно, сейчас на Д2009 проверю

[notHaker]

У меня уже некий стандарт на эту тему... Я даже предположить немог что работать не будет...

[notHaker]

Простите пожалйста... Кода так много, что забыл дописать override к методу и не увидел этого сразу;

Пепел Феникса, безмерно вам благодарен!!! Вы первый кто взялся помочь))))