给CreateWindow创建的按钮, 配上imagelist里面的图片, 怎么做到?

[wztimes]

//创建一个自定义按钮, 按钮位于一个指定窗口里面
hMyButton:= CreateWindow('Button', '', WS_VISIBLE + WS_CHILD + BS_TEXT + BS_ICON + BS_BOTTOM,
      20, 20, 40, 40, BarHandle, 0, 0, nil);

//给按钮增加图片
myIcon:= LoadImage(hInstance, PAnsiChar('picture\001.ico'), IMAGE_CURSOR, 0,0, LR_LOADFROMFILE);
SendMessage(hMyButton, BM_SETIMAGE, IMAGE_ICON, myIcon);

以上代码是可以实现自创建按钮, 并在按钮上显示图片

现在的问题是, 可以不可以把picture\001.ico放在一个imagelist中, 然后再获取并显示到这个自定义的按钮上?
这样,图片就编译在程序里, 丢不了了

[luxuewei5214]

可以放在资源文件中，自己创建一个资源文件res

[ppmemoryback]

楼主 求加好友 求给思路 给你写了私信哦 不知道怎么找你 只能在你的帖子里找了

[aniugee]

AIcon:=TIcon.Create;
try
  AIcon.SetSize(ImageList1.Width,ImageList1.Height);
  ImageList1.GetIcon(1,AIcon);
  SendMessage(hMyButton, BM_SETIMAGE, IMAGE_ICON, AIcon.Handle);
finally
  AIcon.Free;
end;

楼主给分吧