我可以通过禁用"Ctl3D“将TPanel边框设置为黑色,将TPanel边框样式设置为"bsSingle”,将TPanel BevelKind设置为"bkNone“,将TPanel BevelInner设置为"bvNone”。但我需要将TPanel边框设置为“蓝色”或“红色”。另一种方法是"Caliing Form Paint Event“,但我不希望使用它。请帮帮我。
发布于 2012-01-08 17:24:43
你唯一的办法就是:
Vcl.ExtCtrls.pas中的TCustomPanel.Paint代码和TPanel (类)中覆盖它以根据您的要求对其进行定制;您可以在包含您的面板的表单单元中使用interposer类。
https://stackoverflow.com/questions/8776141
复制相似问题