delphi - 自定义 TPanel 边框

Question

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

Answer 1

你唯一的办法是：

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

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