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;
如果没有uses子窗体,如何打开这个子窗体啊?呵呵你这个子窗体应该是动态创建的吧,你确认这个子窗体打开了?
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;