社区
Delphi
帖子详情
Tform.Create(nil)和 Tform.Create(application) 有什么区别??
yjbnew
2004-06-15 12:38:59
??
...全文
306
12
打赏
收藏
Tform.Create(nil)和 Tform.Create(application) 有什么区别??
??
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
山水无言
2004-07-26
打赏
举报
回复
liuqifeiyu(liuqi)你好,我今天也碰到这个问题,当执行到
liu_form:=Tliu_form.Create(NIl);
时出错,错误提示为:
Value assigned to 'liu_form' never used
请问这是为什么?怎么纠正?
xijunwhx
2004-06-28
打赏
举报
回复
区别大家都说了,我说点别的。
在你的application中form比较多form中界面元素比较多的时候尽量避免create
(application),多使用create(nil)养成习惯记得自己创建的东西,
自己释放掉就行了,至于这样做的原因,你看看Win32的消息流窜路径就知道了。
juliens
2004-06-15
打赏
举报
回复
属主对象也就是你创建的对象的Owner属性里指定的!
juliens
2004-06-15
打赏
举报
回复
Tform.Create(nil)表示你创建的Form没有属主对象,你得自己创建自己销毁;
Tform.Create(application)表示你创建的Form的属主对象是Application,不用你手工销毁,其生命期是由Application管理的!
yjbnew
2004-06-15
打赏
举报
回复
up
julong88
2004-06-15
打赏
举报
回复
Tform.Create(nil)表示你创建的Form没有属主对象,你得自己创建自己销毁;
Tform.Create(application)表示你创建的Form的属主对象是Application,不用你手工销毁,其生命期是由owner管理的
括号里的是owner
yjbnew
2004-06-15
打赏
举报
回复
DENG DENG ZAI JIE TIE !
Tensionli
2004-06-15
打赏
举报
回复
study
liuqifeiyu
2004-06-15
打赏
举报
回复
你用Tform.Create(nil) 创建后马上销毁如:
liu_form:=Tliu_form.Create(NIl);
With liu_form do
Try
ShowModal;
Finally
Free;
liu_form:=Nil;
End;
JUSTHELP
2004-06-15
打赏
举报
回复
你可以自己释放
FreeANDNil(yourform);
yjbnew
2004-06-15
打赏
举报
回复
我用 Tform.Create(nil) 没有问题,但用Tform.Create(application) 当程序结束时会报错误!
我现在的问题是:用Tform.Create(nil) 时,当我的程序结束时这个窗口会自动释放空间吗?
hanlin2004
2004-06-15
打赏
举报
回复
说的不错
Tform.Create(nil) 效率高,但是要自己释放空间
Tform.Create(application) 有些额外操作,但是安全,当TAPPLICATION释放的时候会先释放
属于它的所以对象
DELPHI搜索文件的示例
HFileRes :=
Create
File(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0,
nil
, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then ...
idhttp六种post方法
它将数据分隔成多个部分,每部分都有自己的内容类型和名称。例如: ```delphi var HTTP: TIdHTTP;
Form
Data: TIdMultipart
Form
DataStream; begin HTTP := TIdHTTP.
Create
(
nil
);
Form
Data := ...
Delphi学习案例.docx
OpenDialog := TOpenDialog.
Create
(
nil
); try if OpenDialog.Execute then Memo1.Lines.LoadFromFile(OpenDialog.FileName); finally OpenDialog.Free; end; end; ``` 2. **保存文件:** - 双击 `Save` ...
用Delphi编写安装程序
if
Create
Process(
nil
, @CmdLine,
nil
,
nil
, False, 0,
nil
,
nil
, StartupInfo, ProcessIn
form
ation) then begin CloseHandle(ProcessIn
form
ation.hThread); CloseHandle(ProcessIn
form
ation.hProcess); end; ...
学生上机游戏专用监控系统
T
Form
3 = class(T
Form
) Label2: TLabel; xpWindow1: TxpWindow; AAFadeText1: TAAFadeText; private { Private declarations } public { Public declarations } end; var
Form
3: T
Form
3; implementation...
Delphi
5,930
社区成员
262,936
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章