【发布时间】:2015-03-06 14:07:44
【问题描述】:
我正在编写一个 tExCustomControl,然后我用它来派生其他自定义控件。假设我有一个从 tExCustomcontrol 继承的 tExButton,我想知道如何在向派生类 tExButton 发出 SetFocus 时让基类 tExCustomControl 显示虚线矩形。
【问题讨论】:
标签: delphi delphi-xe4
我正在编写一个 tExCustomControl,然后我用它来派生其他自定义控件。假设我有一个从 tExCustomcontrol 继承的 tExButton,我想知道如何在向派生类 tExButton 发出 SetFocus 时让基类 tExCustomControl 显示虚线矩形。
【问题讨论】:
标签: delphi delphi-xe4
在控件的重写Paint 方法中,如果控件具有焦点,则调用DrawFocusRect。
【讨论】:
DrawFocusRect 传递Canvas.Handle。完全一样。使用 canvas 方法是 VCL 代码中干净的方式。