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

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

← →
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)
иф визибле=фальше, тогда показать. :)

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

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;

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

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

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