执行什么语句可以在FORM1下弹出FORM2窗口?
能不能带回FORM2窗口执行结构如ret=0或-1?
[解决办法]
with Tform2.Create(Owner) do
begin
showmodal;
................
Destroy;
end;
[解决办法]
//创建新窗口
if Form2=nil then
begin
Form2:=TForm2.Create(nil);
Form2.ShowModal;
end;
//showModal有返回参数
http://lieren.goofar.com
[解决办法]
with Tform2.Create(Nil) do
begin
ret := showmodal; //
free;
end;