谢谢大家,我有uses
如下:
implementation{$R *.dfm}uses CHILDWIN, about;但是我写 CHILDWIN.只有 TMDIChild的提示,而没有 MDIChild

解决方案 »

  1.   

    或许CHILDWIN实例已经被你关闭了吧?
      

  2.   

    不懂,不懂,
    如果没有uses子窗体,如何打开这个子窗体啊?呵呵你这个子窗体应该是动态创建的吧,你确认这个子窗体打开了?
      

  3.   

    MainForm 中:
     function GetMemo:TMemo;
     property  Memo : TMemo read from GetMemo;
    function TMainForm.GetMemo:Tmemo;
       if ActiveMDIChild = nil then Result := nil
         else Result := TChildForm(ActiveMDIChild).Memo;
    end;procedure TMainForm.------;
        if Memo <> nil then begin 
           if SaveDialog1.Execute then begin
              Memo.Lines.SaveToFile(----);
              ...
           end;
         end;
    end;