Delphi - TCustomControl - 焦点时可以显示虚线矩形吗？

Question

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

Answer 1

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