关于MDI窗体的又一个问题

Question

因为mdichild就是允许生成多个一类的窗口。例如word。
我增加一个ACITON1，category->写个英文名.emp:Files;

Answer 1

用这个函数可以生成不生成两个相同的窗子
procedure OpenMdiForm(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;你要打开一个子窗口时openmdiform(mdiform,mdichildform,self)

Answer 2

至于ACTIONLIST,你在此控件上点按右键弹出一菜单点按最上面的一项,弹出一个窗口，actions栏处，点按右键，此时你根据菜单执行便可
至于和菜单栏关联，您在要关联的菜单上ACTION属性中选择关联的ACTION便可