Форум: "Начинающим";
Текущий архив: 2008.11.16;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.11.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c