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

Вниз

MDI   Найти похожие ветки 

 
Goblinus   (2002-06-03 00:49) [0]

Почему программа не хочет этим кодом закрывать все дочерние окна?

procedure TForm1.FileSaveAllExecute(Sender: TObject);
var i: integer;
begin
for i:=0 to form1.MDIChildCount do
begin
(Form1.ActiveMDIChild as TForm2).Close;
end;
end;


 
Song ©   (2002-06-03 08:27) [1]

А в каком месте этого отрывка вы идентифицируете дочернее окно по индексу?


 
Игорь Шевченко ©   (2002-06-03 09:26) [2]

Попробуйте так:

procedure TfMain.CloseAllMDIChilds;
begin
while ActiveMDIChild <> nil do begin
ActiveMDIChild.Release();
Application.ProcessMessages();
end;
end;

В вашем примере ActiveMDIChild не успевает меняться, так как нет фразы Application.ProcessMessages и действие Close не успевает сработать.

С уважением,



 
Goblinus   (2002-06-03 10:07) [3]

>>>>> Song >>>>> А в каком месте этого отрывка вы идентифицируете дочернее окно по индексу?

Дык ведь если одно окно закрыть, другое становится активным. Вроде бы так. Или нет?..

>>>>> Игорь Шевченко >>>>>

Попробуйте так:

procedure TfMain.CloseAllMDIChilds;
begin
while ActiveMDIChild <> nil do begin
ActiveMDIChild.Release();
Application.ProcessMessages();
end;
end;

В вашем примере ActiveMDIChild не успевает меняться, так как нет фразы Application.ProcessMessages и действие Close не успевает сработать.

С уважением,

-----------------------------------------------------------------

Спасибо! Это как раз то, до чего я сам не мог додуматься!



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-39984
PTE
2002-06-03 12:06
2002.06.13
StringGrid название столбцов


1-39979
Apis
2002-05-30 17:39
2002.06.13
Как динамически изменять Caption у формы?


8-40116
GHR
2002-01-20 16:40
2002.06.13
Delphi and AutoCAD


1-40064
DeMoN-777
2002-06-02 12:57
2002.06.13
StringList


3-39934
Nina
2002-05-20 17:12
2002.06.13
тип поля