窗体图标问题 ( 积分: 100 )

  • 主题发起人 主题发起人 wenqy
  • 开始时间 开始时间
W

wenqy

Unregistered / Unconfirmed
GUEST, unregistred user!
我在盒子里下载了一个打飞机程序的原码,现在我改了一下,但运行时form1.caption(标题栏)显示的是鼠标坐标x,y的值.
我想改成自己的图标,以为简单,以前我也多次改过.
按照Project--options--Application--icon里LOAD图标以后,后运行,还是原来的,连任务栏中程序的delphi7的图标都去不了,请高手指点!
 
我在盒子里下载了一个打飞机程序的原码,现在我改了一下,但运行时form1.caption(标题栏)显示的是鼠标坐标x,y的值.
我想改成自己的图标,以为简单,以前我也多次改过.
按照Project--options--Application--icon里LOAD图标以后,后运行,还是原来的,连任务栏中程序的delphi7的图标都去不了,请高手指点!
 
窗体有一个 Icon 属性的...
 
请再说细些!刚又试了,从icon中调入图标,但编译后仍显示人家的
肯定人家在程序某处有一段代码!能动态修改icon,只是我不知道
 
代码好长的吗? 可以把代码贴出来看看吗?
 
盒子中有:Missile 子弹 跟随效果
http://www.2ccc.com/article.asp?articleid=1884
 
如果写程序那个人没有动态改变 icon,那可能是 Delphi 的问题,我以前遇到过。解决起来很简单,有两个办法,一个不行试另一个:
1、在工程文件(*.dpr) 中找到 {$R *.res} 这句,$R 代表的是与工程同名的资源,现在你把它改成 {Project1.res},编译即可;
2、注释掉 {$R *.res},编译,报错,然后取消注释,再次编译即可。
 
刚下载了一个,以为多大点事,没看到窗体 BorderStyle 是 bsDialog 么,对话框哪来的图标,改成 bsSizeable 就行了。
 
好,可是:
1,我不想显示右上角最小化,最大化,怎么弄?
2,不想让他动态显示光标的横纵坐标,有什么办法,
先结100分!
 
1、BorderIcons 的 biMinimize 和 biMaximize 都设为 False (BorderStyle 设为 bsSingle,可设可不设);
2、
if GetClientPos(handle,target) then
self.Caption:=format('x=%d,y=%d',[target.x,target.y]);

self.Caption:='中弹';
这两句都去掉就行了。
 
设置窗体的属性 BorderIcons 里面的 biminimize 和bimaximize 设成为False不就行啦, 
 
难者不会,会者不难!
 
这些有可能是在程序中实现的,你可以查看一下程序看是否是启动
隐藏了。
 
后退
顶部