S
stow
Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现各个items的动态图标的改变了。
我写的代码是这样：
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to 4 do
outlookbar1.Items[0].Items[0].ImageIndex :=i;
sleep(200);
end;
这样实现不了,请给出源代码了
我写的代码是这样：
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to 4 do
outlookbar1.Items[0].Items[0].ImageIndex :=i;
sleep(200);
end;
这样实现不了,请给出源代码了
