自定义 TPanel 边框

Question

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

Answer 1

你唯一的办法是：

1. 在Vcl.ExtCtrls.pas 和
中学习TCustomPanel.Paint 代码
2. 在TPanel（类）中覆盖它以根据您的要求对其进行定制；

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