一个打开通用窗体的过程解决方案

一个打开通用窗体的过程
关键这个Tform类,应该弄成哪个类呢?每个窗体的类都不一样,如何能通用?

Delphi(Pascal) code

procedure OpenFrm(Frm: [color=#FF0000]TForm[/color]);  begin  if not Assigned(Frm) then    Frm.Show;end;procedure TForm2.btn1Click(Sender: TObject);begin  OpenFrm(Form3);end;

[解决办法]
如果你确认打开的是Form，那就用TForm吧，他都有Show方法
[解决办法]
Form窗体都是继承TForm，所以直接用TForm就可以了
[解决办法]
就是TForm

查看更多 下一篇