Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Помогите, с MDI-приложением! как чтоб при закрытии Child окна   Найти похожие ветки 

 
Kurt   (2002-09-13 16:20) [0]

MDIChild-форма. закрывается с помощью action:=caFree.
потом проверяя с помощью NOT ASIGNED создаю CreateForm а иначе c помошью метода Show пытаюсь его открыть, но этого не происходит.
В чем проблема? подскажите, плиз!


 
BOA_KAA ©   (2002-09-13 17:05) [1]

С каким параметром открываешь child-форму?

У меня работает так: TChildForm.Create(Self);


 
Kurt   (2002-09-13 17:17) [2]

так это ты создаешь форму так, или выводишь созданную?


 
FMichael   (2002-09-13 18:45) [3]

Както я написал:
<cobe>
procedure CreateSingleForm(formclass: TComponentClass; var childform);
var x: integer;
l: Boolean;
begin
l:=true;
if (not Assigned(TComponent(childform))) then begin
Application.CreateForm(formclass, childform);
l:=false;
end else for x:=0 to MDIChildCount-1 do
if MDIChildren[x].ClassName = formclass.ClassName then begin
MDIChildren[x].Show;
l:=false;
break;
end;
if l then Application.CreateForm(formclass, childform);
end;

procedure CreateMultipleForm(formclass: TComponentClass; var childform);
var x,t: integer;
begin
t := 0;
for x:=0 to MDIChildCount-1 do
if MDIChildren[x].ClassName = formclass.ClassName
then t := max(MDIChildren[x].tag, t);
Application.CreateForm(formclass, childform);
with TForm(childform) do begin
tag := t+1;
Caption := IntToStr(tag)+" "+Caption;
end;
end;

Вызовы:

CreateSingleForm(TForm1, Form1);
CreateMultipleForm(TForm2, Form2);

Это работает, может поможет?


 
BOA_KAA ©   (2002-09-13 19:12) [4]

2Kurt (13.09.02 17:17)

И то и другое, она сразу видима



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

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-85508
Rule
2002-09-16 22:24
2002.09.26
Очень прошу помочь, помираю (горит проект) !!!!!!!!!!!!!!!!!!!!!!


14-85649
murza
2002-08-30 14:54
2002.09.26
Продолжение логической игры


1-85477
Dark Hunter
2002-09-16 14:04
2002.09.26
Найти все доступные в сети компьютеры...


1-85433
XED
2002-09-15 19:52
2002.09.26
Нащет bat файлов!


1-85462
id_privin
2002-09-14 13:52
2002.09.26
Вспомнить все. Или есть ли у компилятара память.