Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];
ВнизРабота с формами Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c