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

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

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

---

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

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



Память: 0.45 MB
Время: 0.011 c