怎样在程序中放入多个图标，在窗口标题栏上放动画，我问的是前一个问题(30分)

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #1

[]

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #2

1、资源文件中加入多个图标
2、使用ImageList控件
3、使一个图标包含多个图案（可以的）

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #3

使用ImageList,里面放上几个图标。
var I :integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=ImageList1.Count-1 then i:=-1;
inc(i);
ImageList1.GetIcon(i,icon);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i :=-1;
end;

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #4

多人接受答案了。