如何在Python DelphiVCL GUI应用中为Label添加边框？

我用DelphiVCL for Python库制作了一个简单的Hello World! GUI应用，在Form上的Label控件显示Hello World!，代码如下：

from delphivcl import *

class frmMain(Form):
    def __init__(self, owner):
        self.Caption = 'Hello World'
        self.Width = 1000
        self.Height = 500

        self.myLabel = Label(self)
        self.myLabel.Parent = self
        self.myLabel.Caption = "Hello World!"
        self.myLabel.Font.Size = 85
        self.myLabel.Left = (self.Width - self.myLabel.Width) / 2
        self.myLabel.Top = (self.Height - self.myLabel.Height) / 2

Application.Initialize()
Application.Title = 'Hello World'
MainForm = frmMain(Application)
MainForm.Show()
FreeConsole()
Application.Run()

尝试通过以下代码为Label添加边框，但未生效：

self.myLabel.Stroke.Kind = "Solid"
self.myLabel.Stroke.Color = "Black"
self.myLabel.Stroke.Thickness = 1

问题解答：可以为Label添加边框，具体操作如下 #

你使用Stroke属性无效的原因是：Stroke是FireMonkey框架控件的绘图属性，而DelphiVCL基于VCL框架，Label控件并不使用该属性控制边框。以下是三种可行的实现方式：

方法1：使用内置BorderStyle属性（基础边框） #

VCL Label自带BorderStyle属性，直接设置即可快速添加实线边框：

# 在Label初始化代码中添加以下内容
self.myLabel.BorderStyle = bsSingle  # 设置为单实线边框
self.myLabel.Color = clWhite  # 需设置背景色，避免边框被窗体背景覆盖
self.myLabel.BorderWidth = 1  # 边框宽度，默认值为1

BorderStyle的可选值：

• bsNone：无边框（默认状态）
• bsSingle：单实线边框

方法2：使用Bevel属性实现立体边框 #

如果需要带立体感的边框，可通过BevelOuter和BevelWidth设置：

self.myLabel.BevelOuter = bvRaised  # 凸起立体边框，可选bvLowered实现凹陷效果
self.myLabel.BevelWidth = 2  # 立体边框的宽度
self.myLabel.Color = clWhite

方法3：自定义绘制边框（高级个性化需求） #

若需要自定义边框颜色、宽度、圆角等效果，可重写Label的OnPaint事件：

# 定义绘制事件处理函数
def on_label_paint(self, sender):
    canvas = sender.Canvas
    # 设置边框样式
    canvas.Pen.Color = clRed  # 边框颜色
    canvas.Pen.Width = 2      # 边框宽度
    # 绘制矩形边框
    canvas.Rectangle(0, 0, sender.Width, sender.Height)

# 在Label初始化时绑定该事件
self.myLabel.OnPaint = self.on_label_paint
self.myLabel.Color = clWhite

内容的提问来源于stack exchange，提问作者Shaun Roselt