Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

FormCreate в классе-предке   Найти похожие ветки 

 
ИгорьК   (2003-01-29 17:41) [0]

Приветствую!
Имеем unit в котором объявляю свой класс:
type
TfAbstChild = class(TForm)
procedure FormCreate(Sender: TObject);
end;

все формы приложения наследуются от этого класса
type
TfrmFinAnaliz = class(TfAbstChild)
end;

как сделать, чтобы при создании
frmFinAnaliz:=TfrmFinAnaliz.Create(Self);
выполнялясь процедура FormCreate из класса TfAbstChild?


 
Игорь Шевченко ©   (2003-01-29 18:00) [1]

При таком описании она и будет выполняться. Если у потомков в FormCreate что-то написано, то добавить в начало строчку inherited


 
han_malign ©   (2003-01-29 18:18) [2]

>Игорь Шевченко © (29.01.03 18:00)
- обознатушки - в onCreate этот FormCreate никто не клал(обычно это делет TReader на этапе создания)
type
TfAbstChild = class(TForm)
protected
procedure FormCreate(Sender: TObject);virtual;
public
procedure DoCreate; override;
end;
...........
procedure TfAbstChild.DoCreate;
begin
FormCreate(Self);//или OnCreate:=FormCreate;
inherited;
end;

З.Ы. FormCreate будет выполняться после конструктора TForm


 
Игорь Шевченко ©   (2003-01-29 18:26) [3]

han_malign © (29.01.03 18:18)

А...понял.
Извиняюсь, слово procedure перед FormCreate не заметил, глаза уже замылились.




 
ИгорьК   (2003-01-30 10:42) [4]

>han_malign
Спасибо, а не проясните, почему inherited после выполняется? А для OnDestroy кокой порядок будет?


 
REA ©   (2003-01-30 11:02) [5]

А просто OnCreate вместо DoCreate нельзя перегрузить? В формах наследниках при генерации события будет добавляться inherited. Вроде можно.



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

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
8-28937
Juran
2002-10-27 11:57
2003.02.10
как загрузить в Image другие форматы кроме стандартных


1-28900
Fill
2003-01-29 20:43
2003.02.10
mainmenu


1-28767
olookin
2003-01-31 17:35
2003.02.10
из Delphi в Excel


14-29073
DiamondShark
2003-01-24 20:20
2003.02.10
Ой, ну его на фиг, такой праздник...


14-29062
Maximator Vetera
2003-01-24 21:11
2003.02.10
Внезапно мне предложили сделать сайт.