| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как предотвратить 2ой FormClose ? (+) [D6]
kba © (2003-01-23 15:59:00)Ситуация такая: есть общий родитель для главного и дочернего окна, дочернее окно расположено в 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
не различает КТО закрывает окно
Как бы красиво это разрешить?
С Уважением, Борис
kba (2003-01-23 19:11:00) [1]Что то я поторопился:(
При вызове из главной программы AfrmSlave.Close();в дочерней на FormClose TComponent(Sender) = Self
то есть откуда был сделан Close я не поймал!
С уважением, Борис
kba (2003-01-23 17:20:00) [2]Спасибо!
С уважением, Борис
gsu (2003-01-23 16:02:00) [3]/Хотел определить что вызов был из главного окна
If TComponent(Sender).owner = application.mainForm
| |
