bitbut用onMouseMove,只可使字体变红，离开时却不能变黑，该如何处理

2012-03-13

bitbut用onMouseMove,只可使字体变红，离开时却不能变黑，鼠标到bitbut上面字体显示红色离开时字体显示黑

bitbut用onMouseMove,只可使字体变红，离开时却不能变黑，
鼠标到bitbut上面字体显示红色离开时字体显示黑色
用onMouseMove,只可使字体变红，离开时却不能变黑，请高手指点

[解决办法]
离开触发cm_mouseleave消息，截获它处理一下就行了

Delphi(Pascal) code

private   procedure MouseLeave(var Msg:TMessage); Message CM_MouseLeave;procedure TForm1.MouseLeave(var Msg:TMessage);begin  if TObject(Msg.LParam) is TBitBtn then     TBitBtn(Msg.LParam).Font.Color:=clBlack;end;procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  TBitBtn(Sender).Font.Color:=clRed;end;