我的程序里面有两个form,Form1 为父窗口(FormStyle:=fsMDIForm),Form2为子查(FormStyle:=fsMDIChild)
Form2的创建为showmodal类型,创建语句如下:
with TFormNewMessage.Create(Self) do
try
if ShowModal = MROK then
begin
childform := TFormMessageStructure.create(application);
end;
finally
Free;
end;现要实现功能:点击form1上的save按来保存form2中的内容,代码如下:
sFileName := SaveDialog1.FileName;
if saveDialog1.Execute then
FormMessageStructure.RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);程序运行的时候报错如图请各位高手帮忙看看到我的程序是错在哪里了,应该怎么改...
还有就是在D7里面怎么找到保存的Dialog,我只找到了另存为的(SaveDialog)菜鸟谢谢各位大虾了!!
Form2的创建为showmodal类型,创建语句如下:
with TFormNewMessage.Create(Self) do
try
if ShowModal = MROK then
begin
childform := TFormMessageStructure.create(application);
end;
finally
Free;
end;现要实现功能:点击form1上的save按来保存form2中的内容,代码如下:
sFileName := SaveDialog1.FileName;
if saveDialog1.Execute then
FormMessageStructure.RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);程序运行的时候报错如图请各位高手帮忙看看到我的程序是错在哪里了,应该怎么改...
还有就是在D7里面怎么找到保存的Dialog,我只找到了另存为的(SaveDialog)菜鸟谢谢各位大虾了!!
Project Edit.exe raised exception class EACessViolation with message'Access violation at address 066FA175in module 'Exit.ext', Read of address 00000344' Process stopped
说明创建了窗体childform,但childform不是FormMessageStructure.