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

Вниз

Как создать только один экземляр MDIChild   Найти похожие ветки 

 
Dark Man ©   (2004-03-11 04:52) [0]

За ранее благодарен!


 
Defunct ©   (2004-03-11 05:41) [1]

В модуле где описана MDIChild форма, храним ссылку на первый созданный экземпляр, в этом же модуде пишем функцию создания MDIChild формы:

 TMDIChild = class(TForm)
   ...
 End;

 Function CreateAChild(AOwner:TComponent):TMDIChild;

implementation

{$R *.dfm}
Var Form : TMDIChild = Nil;

Function CreateAChild(AOwner:TComponent):TMDIChild;
Begin
 If Not Assigned(Form) Then Form := TMDIChild.Create(AOwner);
 Result := Form;
End;


Далее, в главной форме по событию OnActivate используем функцию CreateAChild для создания MDIChild.

procedure TMainForm.FormActivate(Sender: TObject);
begin
 OnActivate := Nil; // И снимаем обработчик, или устанавливаем другой
 CreateAChild(Application)
end;


 
Defunct ©   (2004-03-11 05:48) [2]

Для надежной работы перекройте Destructor MDIChild формы, так чтобы отчищалась лок переменная:


TMDIChild = class(TForm)
  ...
  Destrcutor Destroy;Override;
End;

Function CreateAChild(AOwner:TComponent):TMDIChild;

implementation

{$R *.dfm}
Var Form : TMDIChild = Nil;

Function CreateAChild(AOwner:TComponent):TMDIChild;
Begin
If Not Assigned(Form) Then Form := TMDIChild.Create(AOwner);
Result := Form;
End;

Destrcutor TMDIChild.Destroy;
Begin
 Form := Nil;
 Inherited;
End;


 
VMcL ©   (2004-03-11 07:10) [3]

>>Dark Man ©  (11.03.04 04:52)
>За ранее благодарен!

А [1] и [2] - чисто сердечный ответ.



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

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

Наверх




Память: 0.47 MB
Время: 0.032 c
1-1078831472
BPK
2004-03-09 14:24
2004.03.28
Как определять абстрактные методы?


1-1078418695
ChcngerMan
2004-03-04 19:44
2004.03.28
ListVew


1-1078821690
Nekto
2004-03-09 11:41
2004.03.28
Текст с Flat


6-1073655406
Va
2004-01-09 16:36
2004.03.28
Как узнать, что закончилась регистрация в сети ?


7-1073908494
S@shka
2004-01-12 14:54
2004.03.28
Есть ли люди работающие с TApdComPOrt?