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

Вниз

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

 
Olivka ©   (2003-10-07 12:18) [0]

СОздаю класс - наследник от tForm
От него пляшут остальные. При закрытии каждой формы, в событии FormClose я делаю так:

procedure TFrmNewChild.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
frmNewChild:=nil;
end;

т.е. я вынуждена в каждом потомке писать
ЕгоЭкземпляр:=nil, чтобы потом не было проблем с созданием этой же формы.
Нельзя ли че-нить вместо этого вкатать в предке в событии FormClose? (прошу учесть , что ООП я только изучаю)


 
Юрий Федоров ©   (2003-10-07 12:40) [1]

Я бы попытался обойтись без глобальных переменных вообще.
Но если уж это так необходимо, то такой вариант
предположим, что TChildForm - предок
TNewChildForm - потомок
typе
PChildForm = ^TChildForm;
function TChildForm.GetGlobRef: PChildForm; virtual; abstract;

В предке
procedure TFrmNewChild.FormClose(Sender: TObject;
var Action: TCloseAction);
var F : PChildForm
begin
inherited;
F:=GetGlobRef;
F^:=nil;
end;

В потомке
function TNewChildForm.GetGlobRef: PChildForm;
begin
Result:=@NewChildForm;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
14-51431
Andersen
2003-09-29 15:57
2003.10.16
Сетевуха


3-51101
andrey__
2003-09-25 14:13
2003.10.16
Свойство Filter


3-51087
Hose
2003-09-26 10:36
2003.10.16
Как пометить записи в наборе только для чтения?


1-51190
Alek Silverstone
2003-10-04 21:03
2003.10.16
Часовой пояс и летнее/зимнее время


3-51064
Weare
2003-09-26 12:16
2003.10.16
Печать из грида