как закрыть активные окна

← →
Alexei Sviridov (2004-03-16 11:34) [0]

Имеется MDI application.как закрыть все child окна

← →
Rule © (2004-03-16 11:54) [1]

var
iCount:integer;
begin
for iCount:=MDIChildCount-1 downto 0 do
MDIChildren[iCount].Close;
end;

← →
Skif (2004-03-16 11:55) [2]

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Destroy;
end;

← →
Skif (2004-03-16 11:57) [3]

To Rule
При Close - они будут только сворачиваться. Я пользуюсь именно Destroy.
Выше приложен пример на закрытие одного окна, точнее обработку OnClose, но он будет работать и в других условиях

← →
Skif (2004-03-16 11:58) [4]

Удалено модератором

← →
Skif (2004-03-16 11:58) [5]

Удалено модератором

← →
Skif (2004-03-16 12:00) [6]

Удалено модератором

← →
Skif (2004-03-16 12:03) [7]

Удалено модератором

а в каждом окне при событии онклозе вставить вот такую строку

action:=caFree;
вот это правильно а если дестрой то будет возникать ошибка (абстракнаю при том) в самые неподходящие моменты.

← →
Skif (2004-03-16 12:18) [9]

Ок, тогда согласен

как закрыть активные окна Найти похожие ветки