Главная страница
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.046 c
3-1077778760
San
2004-02-26 09:59
2004.03.28
Как поставить задержку всплытия hint в DBGrid е


11-1057214468
Vitek
2003-07-03 10:41
2004.03.28
Не качается Updater 3.1 ...


14-1077957069
Seldon
2004-02-28 11:31
2004.03.28
Кто с математикой дружит?


1-1078775266
xobbit
2004-03-08 22:47
2004.03.28
Окно в качестве фона


1-1078402403
siriusP
2004-03-04 15:13
2004.03.28
Прокрутка StringGrid с помощью SendMessage?