Question

DELPHI 动态创建窗体如何打开文件

动态创建窗体如何打开文件
在FORM1中动态调用FORM2
FORM2专门为文档编辑器部分 不允许引入主窗体单元 UNIT1
现在要实现 在FORM1中单击FORM2的保存按钮 实现保存文件功能
而保存按钮在 FORM2中

如何实现 在FORM1中 单击FORM2的保存按钮 实现保存文件的功能
请说出原理 或有效的代码
这是窗体1的部分代码
var Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;var Form2:TForm2; FileName:string;
procedure TForm1.FileListBox1Click(Sender: TObject);begin FileName:=Label1.Caption +'\'+ Edit1.Text; if FileExists(FileName) then Form2.RichEdit1.Lines.LoadFromFile(FileName);
Caption:=FileName;end;
procedure TForm1.FormCreate(Sender: TObject);begin filelistbox1.Directory:='D:\SRC'; FileName:=Label1.Caption+Edit1.Text;
Form2:=TFOrm2.Create(Self); with Form2 do begin Parent:=panel1; Align:=AlClient; Left:=Panel1.Left; Top:=Panel1.Top; Width:=Panel1.Width; Height:=Panel1.Height; Show; end;
end;





Answer 1

首先，在Form1中单击Form2中的按钮,你这个本身就是诡异的逻辑。你可以说如何在Form1执行Form2单击事件.
其次，既然是事件，那都是要条件驱动的，要么你手动去点击，要么设置另外一个事件出发他，楼上应给出了最简单的方法了；Form2.Savebtn.Click也可以执行到;

按照你的意思，你应该是想在Unit2不调用Unit1单元并调用Form1的函数来保存文件;
最简单的方法；
With TForm2.Create(nil) do
Try
if ShowModal = mrOK then
begin
//SaveFile....在这里保存你的文件
end else Exit;
finally
Free;
end;
///建议你去找<Delphi7_程序设计与开发技术大全>这本书看看，强化一下你的基础只知识。

Answer 2

form1中的某个事件中写如下代码：
form2.saveBtnClick(nil);
即可

Answer 3

可以设定FORM的按键事件keypress
，比如按ctrl+s 触发form2.savebtnClick(nil);