Главная страница
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.013 c
11-12685
Explorer
2002-07-19 14:11
2003.05.05
Кто, что может сказать о KOL


3-12628
кондратий
2003-04-15 17:59
2003.05.05
TSQLQuery & Next


4-12981
Fire Man
2003-03-04 10:15
2003.05.05
Как програмно нажать кнопку на чужом приложении?


14-12907
Bug
2003-04-17 16:51
2003.05.05
Книги


4-12973
Num Lock
2003-03-07 11:21
2003.05.05
EdgeBorder у ToolBar