盒子论坛 v2.1

这样的问题怎么解决：
我是把一些位图放在imagelist1里面，把image1和updown1帮定在一起，可是我单击
updown1，只能显示最后的一副图片
我是这样写的：
procedure tform1.updownclick(sender:tobject;button:tubtntype);
var
x;integer;
begin
x:=updown1.position;
imagelist1.draw(image1.canvas,0,0,x);
end;
是不是因为一个位图就把iamage1的空间占满了，就不能再加近来了，如果我要动态的把imagelist1里的位图加到image1来，要怎样做（iamge1的大小和位图一样），就像qq里面，可以自己选一个图象、

还有一个问题是：我在一个image上画一个位图时，出现闪动的情况，（就是我在棋盘上画旗子）我要怎样设置image的属性。

对了,发了好几次了,是不是因为语言表达的不好,才不行的~!

非常感谢！

----------------------------------------------
-

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2004/4/4 17:43:10

1楼：

算了，我开例亲自打开delphi帮你调试，其实你的问题就是该变图片前需要填充一次，代码如下：
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var
  x:integer;
begin
  x:=updown1.position;
  Image1.Canvas.FillRect(Image1.Picture.Bitmap.Canvas.ClipRect);
  ImageList1.GetBitmap(x,Image1.Picture.Bitmap);
end;
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

lsh998 (lsh)	★☆☆☆☆	-
	盒子活跃会员

2004/4/4 22:33:32

2楼：

谢谢ZIZIZI！
----------------------------------------------
lsh

信息

登陆以后才能回复