создание MDI-окна в run-time

← →
Intense © (2003-11-07 22:15) [0]

Подскажите как нужно создавать MDI-окно в run-time?
выставляя дочернему окну св-во FormStyle = fsNormal - ошибок нету, но при создании окна при заданном этом св-ве в fsMDIChild. ругается:
"cannot create form. No MDI forms are currently active."

← →
Игорь Шевченко © (2003-11-07 22:29) [1]

Из-за того, что у главной формы не установлено свойство fsMDIForm, или не создана главная форма, или MDI-окно находится в DLL.

Где код создания ? :)

← →
Intense © (2003-11-07 22:52) [2]

procedure TfrmMain.FormShow(Sender: TObject);
begin
...
if blFirstTime then // чтобы не создавать несколько раз
begin
blFirstTime := False;
Application.CreateForm(TfrmWorkers, frmWorkers);
end;
...
end;

выставляю:
frmMain.FormStyle = fsMDIForm
frmWorkers.FormStyle = fsMDIChild

если поставить у frmWorkers.FormStyle default property (в fsNormal) - ошибок нету.. но это не то

У главной формы надо установить свойство Visible в False

создание MDI-окна в run-time Найти похожие ветки