Form1 :=TForm1.Create(Self)与
Application.Create(TForm1, Form1);
Application.Create(TForm1, Form1);
解决方案 »
- 求教,怎么在DBGrid的每条记录前出现一个CheckBox
- 请问txt文档文件如何导入sql中(急)
- 自定义复制粘贴,在2000,xp下没有问题,98下粘贴时报错
- 一个关于画点的问题,急,在线等
- delphi的定时器制作计划任务不准确
- 怎样卸载安装不成功的控件
- DELPHI6.0教材学习与讨论
- 怎样才能找到ClientSocket和Serversocket组件(在线)???
- 如何将memo中的内容存到access中的blob字段中,又如何将blob字段取出放到memo中,多谢!
- 怎样取得系统信息(系统的可用资源,WINDOWS的合法用户名,)
- 安装打包问题,求助!
- 散分,帮我讲讲存储过程的执行原理,包括运行效率的改善和前台与后台的资源消耗问题.
begin
GlobalNameSpace.BeginWrite;
try
CreateNew(AOwner);
if (ClassType <> TForm) and not (csDesigning in ComponentState) then
begin
Include(FFormState, fsCreating);
try
if not InitInheritedComponent(Self, TForm) then
raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
finally
Exclude(FFormState, fsCreating);
end;
if OldCreateOrder then DoCreate;
end;
finally
GlobalNameSpace.EndWrite;
end;
end;-----------------------------------------------------------------------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;
Application.Create(TForm1, Form1) = TForm1.Create(application)?
补充一点的,应用project中如果要打开mainform则好象必须使用带application的。