Delphi6的一个奇怪现象?关于Application.Title。

reigod 2002-01-25 03:07:52
任意新建一个项目,打开项目的DPR文件,在begin..end之间修改Application.Title。
如果是直接赋值就一切正常,如:Application.Title := 'MyProject1';
如果用变量的形式赋值,如:
const MyAppName : string := 'MyProject1';
begin
Application.Initialize;
Application.Title := MyAppName;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
就会发现工具条和菜单中的Run命令变灰,点击Run旁边的向下箭头会弹出错误信息‘Call to Application.CreateForm is missing or incorrect.’
...全文
198 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
iBear 2002-01-25
  • 打赏
  • 举报
回复
让我来试一试
王集鹄 2002-01-25
  • 打赏
  • 举报
回复
将它放在主Form创建的事件中吧
reigod 2002-01-25
  • 打赏
  • 举报
回复
to iBear(大熊):
这个是手误。

我也知道可以Project->Options中改标题。不过程序现在需要用代码修改。况且这个地方确实很奇怪的说。
delphizhao 2002-01-25
  • 打赏
  • 举报
回复
确实!不知是不是Delphi6的bug。不过这不是什么大问题。
iBear 2002-01-25
  • 打赏
  • 举报
回复
option中改和在project中改的设计效果是一样的!
thisisxutao 2002-01-25
  • 打赏
  • 举报
回复
到Project->options....里改
thirdapple 2002-01-25
  • 打赏
  • 举报
回复
同意楼上的.
iBear 2002-01-25
  • 打赏
  • 举报
回复
const MyAppName : string := 'MyProject1';
好像应该是
const MyAppName : string= 'MyProject1';
王集鹄 2002-01-25
  • 打赏
  • 举报
回复
Application.Title := '这个地方和IDE有联系,Ctrl+Shift+F11';

828

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧