procedure ShowForm(FormClass:TFormClass);
begin
With FormClass.Create(nil) do
try
ShowModal;
finally
Free;
end;
end; 调用的时候
ShowForm(TForm1);
ShowForm(TForm2);
begin
With FormClass.Create(nil) do
try
ShowModal;
finally
Free;
end;
end; 调用的时候
ShowForm(TForm1);
ShowForm(TForm2);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货