type
TFormClass = class of TForm;procedure ShowForm(AClass: TFormClass);
var
aForm: TForm;
begin
aForm := AClass.Create(Application);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;调用
ShowForm(TPLcDrvRegFrm);
TFormClass = class of TForm;procedure ShowForm(AClass: TFormClass);
var
aForm: TForm;
begin
aForm := AClass.Create(Application);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;调用
ShowForm(TPLcDrvRegFrm);
解决方案 »
- 什么情况啊delphi出现了这个问题有图,前几天的时候我自己也没有解决啊
- 请问大家用过IP Messenger吗?是delphi开源吗?
- 可执行文件的大小多少合适?
- Delphi 中继承的问题————在线等待!!!
- 我用的第三方控件swflash.ocx,我的机器能显示flash,其他机器不能
- 横向预览的问题,可以解决吗?
- 请教文件的复制、删除
- 请大家讨论一下关于Query中支持的SQL语句(来者有份)
- 如何取得dbtext中的值?
- 多人同时连接TSocketServer 那么TSocketServer对他们的处理是多线程的么?
- Query.RecordCount=-1是怎么回事,里面有很多记录的呀?
- 真难啊!!!!!!!!!!!!
TFormClass = class of TForm;procedure ShowForm(AClass: TFormClass);
var
aForm: TForm;
begin
aForm := AClass.Create(Application);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;调用
ShowForm(TPLcDrvRegFrm);