Вниз
Скачать: CL | DM;

MDI формы   Найти похожие ветки 

← →
kilya ©   (2007-03-21 15:55) [0]

У меня вот такая проблемка
Есть главная ворма F1 приложения, есть вторая форма F2(Style:MDIForm) и есть форма F3 (Style:MDIChild).
На форме F2 на кнопочку срабатывает :TF3.Create(TF2).
Выдается исключение: "не могу создать форму. нет активной MDI формы". Если создавать для F1, то все норм. Дочерние формы можно создавать только для главной формы? Уверен что проблема в какой-нибудь мелочи: переключить свойство или т.п.. Подскажите кто-нибудь :)


← →
Сергей М. ©   (2007-03-21 16:34) [1]

Главной формой MDI-приложения должна быть именно MDIParent-форма, а не какая-то иная.
Такова MDI-концепция и такова особенность VCL, придерживающейся этой концепции.


← →
kilya ©   (2007-03-21 16:45) [2]

Не понял :(
F1.FormStyle : fsNormal        -- Main Form в Projects/Options/Forms
F2.FormStyle : fsMDIForm
F3.FormStyle : fsMDIChild

F2 не является MDIparent для F3 ?


← →
Сергей М. ©   (2007-03-21 16:56) [3]


> F2 не является MDIparent для F3 ?


Не является. Потому что она не главная.


← →
Сергей М. ©   (2007-03-21 16:58) [4]

Цитата из "генофонда":

procedure TCustomForm.CreateWindowHandle(const Params: TCreateParams);
..
 if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then
 begin
   if (Application.MainForm = nil) or
     (Application.MainForm.ClientHandle = 0) then
     raise EInvalidOperation.Create(SNoMDIForm); //<-здесь ты получаешь отлуп, потому что у тебя Application.MainForm.ClientHandle = 0



← →
kilya ©   (2007-03-21 17:02) [5]

пасиба :)



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.043 c
3-1173160550
Sansy
2007-03-06 08:55
2007.05.20
Сохранение отчёта в поток для FastReport


15-1176888379
Игорь М.
2007-04-18 13:26
2007.05.20
Чат в локальной сети


1-1174570621
serg_new
2007-03-22 16:37
2007.05.20
Скачать карты из GoogleMap


3-1173133245
Mr. D.
2007-03-06 01:20
2007.05.20
Невозможность снять привелегии с SYSDBA в IBExpert


2-1177655329
Ega23
2007-04-27 10:28
2007.05.20
TInterfacedList.Delete - произойдёт ли вызов _Release




   Наверх