如何 Delphi "Custom Title Bar for VCL Forms" 向自定义按钮添加标题或字形？

Question

我在自定义按钮上使用 onPaint 事件处理程序，但我不知道要写什么来获取图像列表或向该按钮添加标题。

 procedure TForm1.TitleBarPanel1CustomButtons0Paint(Sender: TObject);
 begin
   ...
 end;

Answer 1

在这个事件处理程序中，Sender实际上是一个TSystemTitlebarButton。您可以强制转换它以访问他的属性，例如 Canvas。有了Canvas，想画什么就画什么

简单使用示例：

procedure TForm1.TitleBarPanel1CustomButtons0Paint(Sender: TObject);
begin
   (Sender as TSystemTitlebarButton).Canvas.Rectangle(0, 0, 10, 10);
end;