DELPHI - 如何更改 VCL 表单应用程序中的 TButton 背景颜色？

Question

在我的 Delphi VCL 表单应用程序中，我必须更改 TButton 的背景颜色。 有没有办法在不使用第三方组件的情况下应用此更改？

谢谢。

Answer 1

您无法直接更改

TButton

组件的颜色，而必须使用第三方组件或所有者绘制按钮 (

BS_OWNERDRAW

)。

Answer 2

1. 创建面板。
2. 将面板颜色更改为任何颜色。
3. 空白面板的标题。
4. 在面板内创建一个 SpeedButton。
5. 将 SpeedButton 的 Flat 属性设置为 True。
6. 设置 SpeedButton 的 Align 属性 alClient。
7. 瞧！这是您的彩色按钮！

原始来源：https://engineertips.wordpress.com/2020/07/21/delphi-button-background-color/

Answer 3

好提示，谢谢你，Xel Naga！

您还可以在面板上放置图像，使您的按钮更加美观。 在这里，我添加了一个黄色玻璃按钮的图像。 为了获得圆角，您可以像这样塑造面板>>

SetWindowRgn(Panel1.Handle, CreateRoundRectRgn(0, 0, Panel1.Width, Panel1.Height, 65, 40), True);

在此之后的下一个级别，您可以为按钮状态添加 3 个以上的图像（彼此叠加）：鼠标悬停 (OnMouseEnter)、按钮按下 (OnMouseDown) 和按钮禁用。只需更改图像的可见状态即可显示您想要看到的图像...