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

как запаретить повторное открытие MDIChild-формы?   Найти похожие ветки 

← →
di2   (2003-11-17 14:30) [0]

как запаретить повторное открытие MDIChild-формы?

---

← →
Radionov Alexey ©   (2003-11-17 14:32) [1]

Посмотреть не открыта ли она уже.

---

← →
Е-Моё имя ©   (2003-11-17 14:32) [2]

if ... then

---
nil

---

← →
di2   (2003-11-17 14:36) [3]

вот я и спрашиваю что правильнее всего в IF написать?
enabled?

---

← →
Семен Сорокин ©   (2003-11-17 14:37) [4]

MDIChildCount, MDIChildren,
Screen.FormCount, Screen.Forms
BringToFront
+ F1

---

← →
Danilka ©   (2003-11-17 14:40) [5]

[3] di2 (17.11.03 14:36)
иф визибле=фальше, тогда показать. :)

---

← →
Silver Alex ©   (2003-11-17 14:41) [6]

кстати, этот вопрос бывает через день

function IsFormFoundEx(AFormClass :TFormClass) : boolean;
var
i:integer;
begin
Result:=False;

for i:=0 to Screen.FormCount - 1 do
if (Screen.Forms[i] is AFormClass) then begin
(Screen.Forms[i] as TForm).BringToFront;
Result:=True;
break;
end;
if not Result then
AFormClass.Create(Application);
end;

---

← →
Danilka ©   (2003-11-17 14:42) [7]

а он спрашивает не про повторное создание, а про повторное открытие. :))

---

← →
di2   (2003-11-17 14:53) [8]

> Silver Alex © (17.11.03 14:41) [6]
большое спасибо! :)

---

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

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



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