关于文本处理问题(MDI)(30分)

  • 主题发起人 dali2000
  • 开始时间
D

dali2000

Unregistered / Unconfirmed
GUEST, unregistred user!
我写一个MDI文本处理程序,其中form1为主窗体(fsmdimain),FORM2为子窗口(FSMDICHILD),
procedure form1.newclick(sender:tobject);//新建
var
form2:tform2;
begin
form2:=tform2.create(application);
end;

procedure form1.saveclick((sender:tobject);//保存
begin
if savedialog1.excute then
form2.richedit1.lines.savetofile(savedialog.filename);
end;
当保存响应时出错'access...in...',为何出错?
 
保存时用
tform2(ActiveMDIChild).richedit1.lines.savetofile(savedialog1.filename);
 
demo
richedit
 
你的form2是在newclick过程中定义的,saveclick中没有办法访问,所以报错。
 
(self.activemdichild as tform2).richedit1.savetofile(savedialog1.filename);
 
可以不定义Form2直接写行吧!
 
这是个复杂抑简单的问题?
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
672
import
I
I
回复
0
查看
565
import
I
顶部