Q QQ1858 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #1 我想在Label的Caption 改变时Label闪3次,如何做?????
C chnplzh Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #2 TLabel is not a descendant of TWinControl,它没有OnChange事件, 估计比较麻烦。
H HunterTeam Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #4 for i:=1 to 3 do begin label1.Color :=clWhite; label1.Refresh; sleep(300); label1.Color := clBtnFace; label1.Refresh; sleep(300); end;
for i:=1 to 3 do begin label1.Color :=clWhite; label1.Refresh; sleep(300); label1.Color := clBtnFace; label1.Refresh; sleep(300); end;
宁 宁柯 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #5 您可以用Edit呀,因为Label没有OnChange事件,您可以把Edit的Color设置为clBtnFace、BorderSytle设置为bsNone、Ctl3D设置为False、ReadOnly设置为True,这样看起来就和Label一样了,然后您可以再在它的OnChage事件里面写改变Edit字体颜色的代码!
您可以用Edit呀,因为Label没有OnChange事件,您可以把Edit的Color设置为clBtnFace、BorderSytle设置为bsNone、Ctl3D设置为False、ReadOnly设置为True,这样看起来就和Label一样了,然后您可以再在它的OnChage事件里面写改变Edit字体颜色的代码!
Q QQ1858 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #7 Edit没有transparent属性!!!我必须能显示背景色
H HunterTeam Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #9 如何知道Caption的改变? 你是用什么办法让Caption改变的啊?难道不是在代码中吗?把我的上面那一段代码写成过 程,在改变Caption的代码加一下该过程不就行了?
Z zjan521 Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #10 Label经常会导致闪烁 最简单的还是自己封装一个,参考TTimer的实现,内部实现一个定时器,我想这并不难
S superrgf Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-30 #11 希望能解决 1:如下 timer.ontime begin if label.caption<>'原来得caption' then begin labelcaptionflash;(自己实现一下) if counter>3 then timer.enabled:=false; end; end; 2:使用第三方控件raize:raizelabel,可以设定自行闪烁,很方便得说
希望能解决 1:如下 timer.ontime begin if label.caption<>'原来得caption' then begin labelcaptionflash;(自己实现一下) if counter>3 then timer.enabled:=false; end; end; 2:使用第三方控件raize:raizelabel,可以设定自行闪烁,很方便得说