Delphi-TCustomControl-当获得焦点时，它可以显示虚线矩形吗

Question

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

Answer 1

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