Delphi - TCustomControl - 获得焦点时它能显示虚线矩形吗？

Question

我正在编写一个 tExCustomControl，我用它来派生其他自定义控件。假设我有一个从 tExCustomcontrol 继承的 tExButton，我想知道在向派生的 class tExButton.

发出 SetFocus 时，如何使基础 class tExCustomControl 显示虚线矩形

Answer 1

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