| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Наследование от главной формы [D2005, XP]

Alex7 ©   (2008-10-03 14:42:00) 

Доброго времени суток!
Задача унаследовать от главной формы один из методов.
Форма из главной форма вызывается 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:00) [1]

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

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

---

Наверх