Скачать: CL | DM;

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

← →
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]

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

---

← →
Rule ©   (2004-03-16 12:05) [8]

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

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c