下面这个函数提供了这个普遍功能,调用即可(注意参数)
procedure TFormGprsMain.ShowChildForm(AFormClass:TFormClass);
begin
with AFormClass.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;
下面这个函数提供了这个普遍功能,调用即可(注意参数)
procedure TFormGprsMain.ShowChildForm(AFormClass:TFormClass);
begin
with AFormClass.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;