Работа с формами

← →
AlexAvz (2003-04-01 16:58) [0]

Как сделать так чтобы дочерняя форма вызывалась один раз, т е
при повторном вызове она не дублировалась

← →
Skier © (2003-04-01 17:02) [1]

initialization
AChildForm := nil;

//................
if Assigned(AChildForm) then AChildForm.Show(Modal)
else begin
AChildForm := TChildForm.Create(...);
AChildForm.Show(Modal);
end; //else

//...................
TChildForm.OnClose(...);
begin
Action := caFree; //если используется AChildForm.Show
AChildForm := nil;
end;

← →
nikb (2003-04-01 17:24) [2]

A esli est mnogo dochernie formi raznogo tipa, mojno peretaskivat MDIChildren. S etim ne nado imet peremennaia (AChilsForm) dlia kajdovo tipa okno.
(i mojno tip okno bit parametar proceduru)

{}procedure TMainForm.SdelatTolkoOdno;
var
MDIChild_one : tMDIChild_one;
i : integer;
begin
MDIChild_one:=nil; i:=0;
while (i<MDIChildCount) and (MDIChild_one=nil) do begin
if MDIChildren[i] is tMDIChild_one then begin
MDIChild_one:=tMDIChild_one(MDIChildren[i]);
MDIChild_one.Show;
end;
inc(i);
end;
if MDIChild_one=nil then begin
MDIChild_one:=tMDIChild_one.Create(Application);
end;
end;

Работа с формами Найти похожие ветки