咩 咩咩 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-10 #1 请问怎么样使我在一个group里新增加的Item先显示一下多种颜色？就像是QQ里面刚刚上线的好友一样，显示完后，Caption恢复为黑色。 分不多了，要的话，以后再给！
轻 轻松虎 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-15 #4 这个没有什么现成方法， 要用一个 Timer ，定时轮换 Item 改变颜色就行了。 你可以先拿一个 Label 试。 procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Font.Color := random(Maxint); end; procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 200; Timer1.Enabled := true; end;
这个没有什么现成方法， 要用一个 Timer ，定时轮换 Item 改变颜色就行了。 你可以先拿一个 Label 试。 procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Font.Color := random(Maxint); end; procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 200; Timer1.Enabled := true; end;
