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

Вниз

Как предотвратить 2ой FormClose ? (+)   Найти похожие ветки 

 
kba ©   (2003-01-23 15:59) [0]

Ситуация такая: есть общий родитель для главного и дочернего окна, дочернее окно расположено в bpl а команда на закрытие может быть вызвана из него же или из главной программы..

Обработка закрытия в базовом модуле:

procedure TfrmMasterSlave.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If isSlave Then //Дочернее окно
begin
If Sender is TComponent Then
begin
//Хотел определить что вызов был из главного окна
If TComponent(Sender).owner = Self.owner Then
begin
PostMessage(MainFormfrm.Handle, WM_SLAVEDESTROYED, LongInt(Self), 0);
Action := caNone;


Обработка закрытия в главном окне:

procedure TfrmDeskTop.FunctionClose(Var AfrmSlave :TfrmMasterSlave; AcanClose :boolean);
begin
If Assigned(AfrmSlave) Then
begin
If AcanClose Then
AfrmSlave.Close();
AfrmSlave.Free;
AfrmSlave := nil;


Если Close вызван из дочернего окна то процесс закрытия в нем блокируется и передается главному окну, НО если дочернее окно закрывают из главного то
//Хотел определить что вызов был из главного окна
If TComponent(Sender).owner = Self.owner Then

не различает КТО закрывает окно

Как бы красиво это разрешить?

С Уважением, Борис


 
gsu ©   (2003-01-23 16:02) [1]

/Хотел определить что вызов был из главного окна
If TComponent(Sender).owner = application.mainForm


 
kba ©   (2003-01-23 17:20) [2]

Спасибо!

С уважением, Борис


 
kba ©   (2003-01-23 19:11) [3]

Что то я поторопился:(
При вызове из главной программы AfrmSlave.Close(); в дочерней на FormClose TComponent(Sender) = Self
то есть откуда был сделан Close я не поймал!

С уважением, Борис



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

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

Наверх




Память: 0.47 MB
Время: 0.025 c
14-5187
Alibaba
2003-01-14 15:22
2003.02.03
Web


7-5287
maxim2
2002-11-20 12:18
2003.02.03
Как перехватить WM_CLOSE посылающееся моей проге из системы


1-4850
Blacker77
2003-01-24 15:31
2003.02.03
Рекурсивный поиск по каталогам


1-5047
Smithson
2003-01-24 10:29
2003.02.03
Минимизация в трей.


1-4915
jiura
2003-01-23 13:23
2003.02.03
Как обнаружить обьект?