0
0452
Unregistered / Unconfirmed
GUEST, unregistred user!
在主窗体下有两个按钮，分别打开两个不同的窗体，我的问题是两个窗体不能同时打开，如何实现两个窗体同时打开？
打开窗体代码如下：
procedure btn1;
begin
with form1.Create(Application) do
try
Showmodal;
finally
Free;
end;
end;
procedure btn2;
begin
with form2.Create(Application) do
try
Showmodal;
finally
Free;
end;
end;
打开窗体代码如下：
procedure btn1;
begin
with form1.Create(Application) do
try
Showmodal;
finally
Free;
end;
end;
procedure btn2;
begin
with form2.Create(Application) do
try
Showmodal;
finally
Free;
end;
end;