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

Вниз

Многооконные документы   Найти похожие ветки 

 
AlexAvz   (2003-04-22 16:40) [0]

Вопрос на засыпку. Помогите разобраться:
В многооконном документе с главной формы запускается дочерняя форма в единственном экземпляре (т.е. она при повторном вызове не дублируется ), а с нее должна запукаться еще одна форма дочерняя и так же в единственном экземпляре. Как это сделать правильно, а то уменя первая запускаемая дочерняя форма не дублируется, а вторая дублируется

При нажатии на BUTTON1 на главной форме

procedure TfmGL.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
fmSprVal:=nil;
i:=0;
while(i<MdichildCount) and (MdiChild=nil)do begin
if mdiChildren[i] is TfmSprVal
then begin
fmSprVal:=TfmSprVal(MDiChildren[i]);
fmSprVal.Show;
end;
inc[i];
end;
if fmSprVal=nil
then begin
fmSprVal:=TfmSprVal.Create(Application);
end;

end;

Запускается дочерняя форма (в единственном экземпляре)fmSprVal
При нажатии на BUTTON2 , на форме fmSprVal должна запускаться форма (fsMDIChild)- пусть FORM3 в эдинственном экземпляре
есл использовать выше приведенный код для FORM3 то FORM3 дублируется вот в этом впринципе и проблема


 
ZmeiGorin ©   (2003-04-22 17:07) [1]

Никак не могу понять, чем не устраивает просто глобальная (или почти глобальная переменная)


 
AlexAvz   (2003-04-22 17:25) [2]

"Никак не могу понять, чем не устраивает просто глобальная (или почти глобальная переменная)" в каком смысле?
Подробнее если можно



 
AlexSV ©   (2003-04-22 18:23) [3]

Все созданые дочерние окна регистрируються в главном окне.
Значит и искать свою форму надо в Application.MainForm.MDiChildren



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
14-12932
D
2003-04-18 09:47
2003.05.05
Delphi не запускается!


14-12875
wnew
2003-04-16 13:35
2003.05.05
Translation Manager


6-12848
kofman
2003-03-07 23:51
2003.05.05
Как найти зеркало данного сайта?


1-12730
Рома-р
2003-04-23 14:07
2003.05.05
Как создать *.RTF с альбомным расположением листа?


3-12645
Кактус
2003-04-16 10:00
2003.05.05
Почему SP при методе Open не возврш. курсор?