关于MDICHILD创建的问题

Question

程序中有一个MDI窗口与一个MDICHILD窗口,MDI窗口是动态创建的,我在创建MDICHILD窗口时总是出现错误信息'Cannot create form,No MDI forms are currently active'create mdiwindow***************************************************
frmPosMain的FormStyle为fsMDIForm
  if frmPosMain = nil then begin
    frmMain.Hide;
    frmPosMain := TfrmPosMain.Create(Application);
    frmPosMain.Show;
*******************************************************************create mdichildwindow**********************************************
frmSales的FormStyle为fsMDIChild
procedure TfrmPosMain.mSalesClick(Sender: TObject);
var Child :TfrmSales;
begin
  Child := TfrmSales.Create(Application);
end;
*******************************************************************

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  TestForm:TForm;
begin
  TestForm:=TForm.Create(self);
  TestForm.FormStyle:=fsMDIForm;
  TestForm.Show;
end;

Answer 2

你的form1是否为MDI窗口？
DELPHI中由MDI窗口中创建的子窗体本身不能再动态创建它自己的子窗体

Answer 3

1. 先创建MDIForm，再创建MDIChild
2. 用Application.CreateForm(TMDIForm,MDIForm)创建主窗体，其中的类名和窗体名要和你在对应的单元文件中定义的一样。