to jsp:<br> 我想应该可以。<br><br><br>//TSpeedButton的CM_MOUSEENTER是他自己产生的。<br><br>procedure TSpeedButton.UpdateTracking;<br>var<br> P: TPoint;<br>begin<br> if FFlat then<br> begin<br> if Enabled then<br> begin<br> GetCursorPos(P);<br> FMouseInControl := not (FindDragTarget(P, True) = Self);<br> if FMouseInControl then<br> Perform(CM_MOUSELEAVE, 0, 0)<br> else<br> Perform(CM_MOUSEENTER, 0, 0);<br> end;<br> end;<br>end;<br>