【问题标题】:Delphi - TCustomControl - can it show dotted rectangle when got focus?Delphi - TCustomControl - 获得焦点时可以显示虚线矩形吗?
【发布时间】:2015-03-06 14:07:44
【问题描述】:

我正在编写一个 tExCustomControl,然后我用它来派生其他自定义控件。假设我有一个从 tExCustomcontrol 继承的 tExButton,我想知道如何在向派生类 tExButton 发出 SetFocus 时让基类 tExCustomControl 显示虚线矩形。

【问题讨论】:

    标签: delphi delphi-xe4


    【解决方案1】:

    在控件的重写Paint 方法中,如果控件具有焦点,则调用DrawFocusRect。

    【讨论】:

    • 感谢您的提示!实际上,我使用 Canvas.DrawFocusRect (aRect) 来避免 HDC 参数。无论如何,它工作正常。
    • 听起来不错。我猜只是打电话给DrawFocusRect 传递Canvas.Handle。完全一样。使用 canvas 方法是 VCL 代码中干净的方式。
    • @David Heffernan 我可以从 dbgrid 单元格中删除虚线矩形吗?
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2023-03-15
    • 2021-09-09
    • 2012-06-17
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多