如何创建子窗口？

Question

如何创建子窗口？

Answer 1

是指MDI子窗口？
如果是的话设置一下窗口的formstyle属性就可以了

Answer 2

form2:=tform.create(application);
form2.show;

Answer 3

procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  OpenForm(TfrmChild1,frmChild1, self);
end;

Answer 4

先建一个form1 上面有很多的菜单，设置formstyle属性主，然后分别将菜单项groupindex编号0 1 2……
下一步，如何创建一个子窗口（并设置formstyle属性为子窗口），还是创建一个form2吗？

Answer 5

楼主所说的应该是MDI窗体吧？设置你要设置的窗口的formstyle属性为fsMDIChild就OK了

Answer 6

先建一个form1 上面有很多的菜单，设置formstyle属性主，然后分别将菜单项groupindex编号0 1 2……
下一步，如何创建一个子窗口（并设置formstyle属性为子窗口），
form2:=tform.create(application);
form2.show;还是不行？