Главная страница
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
6-12852
Vyacheslav
2003-03-11 21:32
2003.05.05
Работа с сетью


7-12948
Yozch_
2003-03-12 23:11
2003.05.05
Как получить изображение со сканера (через TWAIN)


14-12873
darkkonung
2003-04-14 15:42
2003.05.05
Поддержка двух интерфейсов (английского и русского)


14-12940
BorisUK
2003-04-18 09:52
2003.05.05
RX


1-12802
Kapitan
2003-04-22 13:34
2003.05.05
обработка строки