自定义TPanel边框

Question

我可以通过禁用“Ctl3D”和TPanel Border Style作为“bsSingle”和TPanel BevelKind作为“bkNone”和TPanel BevelInner“bvNone”来使TPanel Border为黑色。但我需要将TPanel Border设为“Blue”或“Red”。另一种方式是“Caliing Form Paint Event”，但我不想使用它。 请帮帮我。

Answer 1

你唯一的出路就是：

1. 在TCustomPanel.Paint和
中研究Vcl.ExtCtrls.pas代码
2. 在TPanel（类）中覆盖它以根据您的要求定制;

您可以在包含面板的表单单元中使用插入器类。