delphi - 如何覆盖绘图 TBitBtn 字形？

Question

在编写继承自 TBitBtn 的自定义控件时，我正在寻找一种方法来覆盖或拦截仅绘制字形并自己绘制字形，而不必重绘整个控件。我广泛使用 VCL 样式，并希望避免重新创建所有绘图和样式 Hook 等。不幸的是，我在 TBitBtn 中找不到任何东西。这可以允许这一点。

怎么截取TBitBtn.Glyph的图并自己将字形绘制到按钮 Canvas 上，同时保留控件的所有自然样式绘图？

Answer 1

TBitBtn 控制使用 TButtonGlyph类来绘制字形，不幸的是，与绘制相关的方法(TButtonGlyph.DrawButtonGlyph，TButtonGlyph.Draw)都没有被标记为虚拟。 所以为了只改变绘制字形的方式您可以修补 TButtonGlyph.DrawButtonGlyph或 ButtonGlyph.Draw程序使用绕道。