请问 initialization 放在Unit的什么位置? ( 积分: 50 )

  • 主题发起人 主题发起人 houtor
  • 开始时间 开始时间
H

houtor

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.butonn1Click(Sender: TObject);
var
fcType : TFormClass;
f : TForm;
frmname:string;
begin
FrmName := 'TForm2';
try
fcType := TFormClass(FindClass(frmname));
application.CreateForm(fctype,f);
f.Showmodal;
f.Free;
except
ShowMessage('不存在FORM,请注册');
end;
end;

然后还要
initialization
RegisterClass(TForm2);
但不知道这个语句放在什么位置?
 
最后一个 end.之前
 
楼上正确
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
638
import
I
后退
顶部