一个简单的问题。关于图标如何包含到程序中。

Question

编译到资源中去，然后用
{$R Your.RES}
就可以了。

Answer 1

我在form.create事件中写了如下的语句
t:=Timage.Create(self);
t.Picture.LoadFromFile('wincard.ico');
t.top:=3;
t.left:=152;
t.Parent:=statusbar1;用资源我也编译了。{$R wincard.res}我也加了，可是还是提示要我的ico文件。怎么办呢？

Answer 2

一个简单的办法，把它加到ImageList里面吧，肯定没问题了。

Answer 3

当然了，你是调用的LoadFromFile，当然是从文件读取ico了，你应该使用TBitmap类的
LoadFromResourceID方法

Answer 4

同意 Typhone(Typhone)　、TechnoFantasy(www.applevb.com)　；
LOADFROMFILE（）当然是找文件啦。

Answer 5

ourway.rc文件中的内容：MainPicture    BITMAP  e:\hinge\picture\bmps\Main.bmp
SystemBusy      CURSOR  e:\hinge\picture\cursors\Arrow2.cur
OurwayIcon ICON    e:\hinge\picture\icons\Ourway.ico
STRINGTABLE DISCARDABLE
{
  SYSTEMHINTID,"系统提示"
  DATAMODIFIEDID,"是否保存数据？"
}
---------------------------------
命令行：
Brcc32 -r ourway.rc结果生成一个ourway.res资源文件在工程文件中用：
{$R ourway.RES}
包含这个资源文件  Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'MainPicture');

Answer 6

对了你要的ICON
Icon.Handle := LoadIcon(HInstance,'OurwayIcon');

Answer 7

还是不行。我把T声明为Timage类。
我的目的是在状态条中显示。可运行程序报错。请以我的程序详细说明。
t:=Timage.Create(self);
t.Picture.LoadFromFile('wincard.ico');
t.top:=3;
t.left:=152;
t.Parent:=statusbar1;分数不是问题。
我在csdn要做重合同，守信用的人！^_^不过无法解决就没有办法了。呜呜呜呜

Answer 8

代码没有问题，可能是你的ico文件目录不对，加上文件的全路径试一下：
var
  t:TIMage;
begin
  t:=Timage.Create(self);
  t.Picture.LoadFromFile('c:\1.ico');
  t.top:=3;
  t.left:=152;
  t.Parent:=self;end;上面的代码编译通过（c:\1.ico必须存在）

Answer 9

把它加到ImageList里面吧，肯定没问题了。 imagelist.getico();具体使用请参考帮助。