2,497
社区成员
发帖
与我相关
我的任务
分享如何将窗体的创建参数化
如何将窗体的创建参数化
也就是将
lgsfzf:=Tlgsfzf.Create(nil);
with lgsfzf do
try
ShowModal;
finally
Free;
end;
中的lgsfzf参数化,那位会阿?
也就是将
lgsfzf:=Tlgsfzf.Create(nil);
with lgsfzf do
try
ShowModal;
finally
Free;
end;
中的lgsfzf参数化,那位会阿?
...全文
请发表友善的回复…
发表回复
zdq801104 2004-10-21
- 打赏
- 举报
楼上两为大哥都说完了，我没有什么好说的了
Kevin_Lmx 2004-10-20
- 打赏
- 举报
function ccc(lgsfzf:TForm):Tlgsfzf;
begin
lgsfzf := Tlgsfzf.Create(nil);
result := lgsfzf;
end;
\\调用
with ccc(窗口名称) do
try
name := 窗口名称;
showmodal;
finally
free;
end;
begin
lgsfzf := Tlgsfzf.Create(nil);
result := lgsfzf;
end;
\\调用
with ccc(窗口名称) do
try
name := 窗口名称;
showmodal;
finally
free;
end;
zoujinhe 2004-10-20
- 打赏
- 举报
procedure ccc(lgsfzf: Tlgsfzf);
begin
lgsfzf:=Tlgsfzf.Create(nil);
with lgsfzf do
try
ShowModal;
finally
Free;
end;
end;
begin
lgsfzf:=Tlgsfzf.Create(nil);
with lgsfzf do
try
ShowModal;
finally
Free;
end;
end;
andysunlp 2004-10-20
- 打赏
- 举报
就是想写一个函数,将它参数化
