Наследование от главной формы

← →
Alex7 (2008-10-03 14:42) [0]

Доброго времени суток!
Задача унаследовать от главной формы один из методов.
Форма из главной форма вызывается Form2.ShowModal
унаследованный метод в Form2 вызываю кнопкой, - сообщение не появляется.
в инете нашел примерно такой код:

1)
Type
TForm1 = class(TForm)
public
procedure MyProc(Sender:TObject);
end;

procedure TForm1.MyProc(Sender:TObject);
begin
showmessage("Унаследовал");
end;

2)
...
Type
TForm2 = class(TForm1)
public
procedure MyProc(Sender:TObject);
end;

implementation
3)
...
procedure TForm2.MyProc(Sender:TObject);
begin
inherited;
end;

Не понимаю как это должно работать

Извините, наследование только начал изучать.
Спасибо.

← →
Ega23 © (2008-10-03 14:46) [1]

TForm1 = class(TForm) public procedure MyProc(Sender:TObject); virtual; end;

TForm2 = class(TForm1) public procedure MyProc(Sender:TObject); override; end;

Наследование от главной формы Найти похожие ветки