Delphi风格的VCL TTrackBar：跟踪时隐藏焦点虚线矩形

Question

使用 VCL 样式时，如何在选择/跟踪时隐藏 VCL TTrackBar 周围的焦点？使用 Delphi 11.1

这不起作用：

SendMessage(tb1.Handle, WM_UPDATEUISTATE, UIS_SET OR UISF_HIDEFOCUS, 0);

Answer 1

使用

SendMessage(tb1.Handle, WM_UPDATEUISTATE, UIS_CLEAR OR UISF_HIDEFOCUS, 0);

做工作。

​

​

尽管肯定是这种情况：

SendMessage(tb1.Handle, WM_UPDATEUISTATE, UIS_CLEAR OR UISF_HIDEFOCUS, 0);

虽然控制 焦点使焦点矩形暂时重新出现，直到失去焦点为止。

Note ：我仅尝试使用样式启用它。

Answer 2

您可以通过将其TabStop属性设置为˙false`来防止ttrackbar通过将其集中在焦点中。

当您执行此操作时，将永远不会显示ttrackbar的虚线。

好吧，唯一的例外是，如果您对形式没有其他可重点组件，那么当您开始与TrackBar进行交互时，虚线仍然会出现。

编辑：对：我忘记了VCL风格超越了许多其他物业。

您可以以某种方式修改VCL样式，以便禁用focuseffect ttrackbar，然后使用此修改的样式。