[超级简单]image的显示问题，求助！(99分)

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-09

• #1

implementation
var
kk:integer;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
kk:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if kk>imagelist1.Count-1 then
kk:=0
else
kk:=kk+1;
ImageList1.GetBitmap(kk,Image1.Picture.Bitmap);

end;

在每次Button1点击时更换image的图片，即取imagelist的下一个图片，为什么我的只能显示一个？

祝大家新年愉快！

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-09

• #2

还有清空，哈哈，初次用，不知道，请大家进来领分！
image1.picture := nil
ImageList1.GetBitmap(kk,Image1.Picture.Bitmap);

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-09

• #3

有没有代替imagelist功能但支持图片格式多的控件，如jpg等格式？

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-09

• #4

ding....

 

L

lovezyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-09

• #5

imagelist由于自身的限制不支持其他的格式，而且对于超过一定尺寸的图片会分割

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-09

• #6

请问没有别的可以代替的控件吗？

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-12

• #7

多人接受答案了。