Главная страница
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.015 c
14-51410
Lank
2003-09-25 23:42
2003.10.16
Опять RPC ?


14-51432
sapsi
2003-09-25 13:24
2003.10.16
Ремонт квартиры


1-51247
Максим
2003-10-03 14:20
2003.10.16
Главное меню поверх всех окон


1-51237
webpauk
2003-10-03 14:36
2003.10.16
Отрисовка ClientRect


7-51528
_Harry
2003-08-04 12:57
2003.10.16
Как передать для динамического создания имя класса и имя объекта?