100分请问如何自动添加一个MDI子窗口

Question

请问如何自动添加一个MDI子窗口

Answer 1

Project->Options...
Forms页中，把MDI窗体移到Auto-create forms:下
同时把MDI窗体的Visible属性设置为True；

Answer 2

to  Dlwxn() 我是想动态的添加

Answer 3

那就按上面方法把把MDI窗体移到Available forms:下
var
  MdiForm:TMdiForm;
begin
  MdiForm:=TMdiForm.Create(Self) ;
  MdiForm.Show;
end;

Answer 4

var
  MdiForm:TForm;
begin
  try
    MdiForm:=TForm.Create(Self) ;
    MdiForm.FormStyle:= fsMDIChild;
    MDiForm.ShowModal;
  finally
    MDiForm.free;
  end;
end;

Answer 5

直接创建一个窗体然后把他的formstyle 改为 fsMDIChild就可以了
然后把他show出来

Answer 6

哦，忘了说了，在创建之前先判断这个窗体是否存在，如果存在直接show出来，如果不存在在创建