按你的方法試了,但好象沒有用啊!<br> private<br> procedure WMWININICHANGE (var Msg:TMessage); message WM_WININICHANGE ;<br><br>procedure Tdeskset.WMWININICHANGE (var Msg:TMessage);<br>begin<br> if radiobutton1.Checked=true then<br> SetTextColor(colorbox1.selected,crNone)<br> else<br> SetTextColor(colorbox1.selected,clBlack);<br>end;