procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
var
Instance: TComponent;
begin
Instance := TComponent(InstanceClass.NewInstance); 什么意思啊
TComponent(Reference) := Instance; 什么意思
try
Instance.Create(Self); 什么意思啊
except
TComponent(Reference) := nil; 什么意思
raise; 什么意思
end;
if (FMainForm = nil) and (Instance is TForm) then
begin
TForm(Instance).HandleNeeded;
FMainForm := TForm(Instance);
end;
end;
var
Instance: TComponent;
begin
Instance := TComponent(InstanceClass.NewInstance); 什么意思啊
TComponent(Reference) := Instance; 什么意思
try
Instance.Create(Self); 什么意思啊
except
TComponent(Reference) := nil; 什么意思
raise; 什么意思
end;
if (FMainForm = nil) and (Instance is TForm) then
begin
TForm(Instance).HandleNeeded;
FMainForm := TForm(Instance);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货