我有一个复选框,将在运行时启用/禁用.我只想显示启用/禁用的不同工具提示.我正在考虑重写OnMouseEnter事件并在那里处理它,但只有在启用控件时才会调用OnMouseEnter.我怎么可能实现这种行为？任何帮助,将不胜感激.
我试图处理表单的OnMouseMove并执行类似的操作
procedure Tdlg.pnlTopMouseMove(Sender: TObject;Shift: TShiftState; X,Y: Integer); var point: TPoint; checkBoxCursorPos: TPoint; begin inherited; point.X := X; point.Y := Y; checkBoxCursorPos := chkBx.ScreenToClient(point); if (PtInRect(chkBx.ClientRect,checkBoxCursorPos)) then begin if(chkBx.Enabled) then chkBx.Hint := 'Enabled' else chkBx.Hint := 'Disabled' ; Application.ShowHint := True; end; end;
但条件PtinRect不满意.我做错了什么？