создание Child формы

← →
aade (2003-03-01 14:31) [0]

Нужно создать при нажатии на пункт меню новую Child форму в MDi приложении.
Св-во FormStyle главной формы стоит на:fsMDIForm
Cd-во FormSttyle создающейся формы стоит на fsMDIChild
Я пишу:
procedure TFrmMain.hgjkghjk1Click(Sender: TObject);
Var
Child:Tfrmtabl; {child форма}
begin
Child := Tfrmtabl.Create(frmmain);
end;

Delphi при выполнении этой строки выдает ошибку о том что:
Project Project1.exe raises exception class EInvalidOperation with message "Cannor Create form.No Mdi form are currently active".
Что за фигня?Данная процедура вызывается из MDIForm формы.Так что она существует...

← →
George (2003-03-01 19:17) [1]

У главной формы свойство FormStyle установи в fsMDIForm.
У создаваемой формы FormStyle установи в fsChildForm.

Теперь иди в Option в меню Project и установи свою создаваемою форму в список доступных форм (Он правый)

Вот код на кнопку для создания ChildForm"ы

Form2:=TForm2.Create(Self);

создание Child формы Найти похожие ветки