bitbut用onMouseMove,只可使字体变红，离开时却不能变黑，该如何处理
bitbut用onMouseMove,只可使字体变红，离开时却不能变黑，
鼠标到bitbut上面 字体显示红色 离开时字体显示黑色
用onMouseMove,只可使字体变红，离开时却不能变黑，请高手指点
------解决方案--------------------
离开触发cm_mouseleave消息，截获它处理一下就行了
鼠标到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;