delphi VCL动态调整标题栏颜色渐变，d7-d13可用

标题栏的颜色修改，简单也复杂，但在windows下要把系统按钮颜色渐变等组合好，

还真挺不容易的，我试了很多方法，都不如意，也问了gpt，deepseek，都不如意，他们最多的时

自绘吧，是最自由最稳的。

心都死了，自绘谁不会啊，但我就是要把老项目的标题栏改了，自绘要改很多东西，基类

什么的，还有弄不好会很丑。

就是这种效果

上代码吧。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CustomTitleBar, StdCtrls, TitleBarManager,GradientCaption;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FTitleBar: TCustomTitle