在线急等（Dll调用）！！！

[lishan200012]

我把Form1、Form2封装到了同一个Dll中。
Form1和Form2的关系是Form1需要调用Form2。
请问，如何实现？

[hongqi162]

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create( Owner ) do
begin
ShowModal;
Destroy;
end;
end;

[pengxuan]

跟在一般的工程里窗体间调用是一样的

[lishan200012]

谢谢hongqi162(失踪的月亮)！
问题解决了。
但是我在Form2中有一个过程需要在Form2.ShowModal;之前调用。
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create( Owner ) do
begin
loaddata;//添加这个过程，就不能调用Form2了。怎么解决？
ShowModal;
Destroy;
end;
end;

[hongqi162]

loaddata是form2中的public方法吗？如果是的话应该是没有问题的，可能是loaddata中有问题，因为form2已经被实例化了，已经可以访问了

[lishan200012]

在loaddata中使用了Form1中Edit1.text的信息。这样会有问题吗？
另外Form1中的一些信息能直接给Form2使用吗？

[hongqi162]

逻辑混乱，你应该在form2中定义一个属性来接收edit1.text
form2中定义一个ID属性
private
FID: string;
{ Private declarations }
public
{ Public declarations }
procedure loaddata;
property ID:string read FID write FID;

end;


//form1中调用
with TForm2.Create( Owner ) do
begin
ID:=Edit1.text;
loaddata;//添加这个过程，就不能调用Form2了。怎么解决？
ShowModal;
Destroy;
end;

[lishan200012]

那Form1中AdoConnection能给Form2使用吗？

[lishan200012]

谢谢 hongqi162(失踪的月亮)！
已经解决了90%的问题了。
Form2需要利用Form1中Ado1，修改DBedit1中数据。怎么修改？

[lishan200012]

经过多次修改已经解决。