有两个imagelist: il1,il2
和一个,toolbar
我用下面方法给toolbar上面的按钮加上了图片
with toolbar的按钮 do
il1.GetBitmap(i,Glyph);
翻过来
我用下面方法从按钮里取出图片到il2里却发生错误,提示‘invalid image size’
with toolbar的按钮 do
il2.Add(Glyph,nil);il1,il2是相同的设置,为什么会提示这样的错误呢,如何解决呢
和一个,toolbar
我用下面方法给toolbar上面的按钮加上了图片
with toolbar的按钮 do
il1.GetBitmap(i,Glyph);
翻过来
我用下面方法从按钮里取出图片到il2里却发生错误,提示‘invalid image size’
with toolbar的按钮 do
il2.Add(Glyph,nil);il1,il2是相同的设置,为什么会提示这样的错误呢,如何解决呢
解决方案 »
- 怎么在一个按钮的事件中引用另外组件的事件
- 动态链接库问题,请教高手
- 如何批量改变图片的背景颜色
- 帮忙,一条SQL语句问题!解决后马上给分
- 大富翁怎么上不了了?
- 如何根据数据库中记录的不同打印不同的图片?
- 请问在网线拔掉后,以及与其相连的服务器关闭后,客户机系统会返回什么消息?
- 高分求解——高手请进
- 打印机连接状态的获得--如何判断是否连接?向高手求解,100分相送,在线等
- if ord(false)=0 then 怎样才能把0转换成FALSE(不用if语句判断)谢谢!圣诞快乐!
- 用findwindowex怎么找窗口中任一控件的句柄。
- 请教:Dephi 中将程序最小化为任务栏中的图标,但我不知道如何加入图标右(或左)键菜单,请高手指点
我直接用 il1的图片给il2是可以的
procedure TForm1.Button1Click(Sender: TObject);
var
bit:TBitmap;
begin
try
bit:=Tbitmap.Create ;
imagelist1.GetBitmap(0,bit);
if imagelist2.add(bit,nil)=-1 then
showmessage('failure')
else
toolbar2.Images:=imagelist2;
finally
bit.Free;
end;end;