具有 Button 风格的 Panel（覆盖TCustomPanel的Paint函数，用到了ThemeServices）

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ImgList, ExtCtrls;

type

  TForm2 = class(TForm)

    ImageList1: TImageList;

    Panel1: TPanel;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  TVSPanel = class(TCustomPanel)

  private

  protected

    procedure Paint; override;

  public

end;

var

  Form2: TForm2;

implementation

uses Themes;

{$R *.dfm}

{ TVSPanel }

procedure TVSPanel.Paint;

var

  Details: TThemedElementDetails;

begin

  inherited;

  if ThemeServices.ThemesEnabled then

  begin

    Details := ThemeServices.GetElementDetails(tttBaloonNormal{tbPushButtonHot});   {这里画个按钮处于 Hot 状态下的样子}

    PerformEraseBackground(Self, Canvas.Handle);      {擦除画按钮时的背景}

    ThemeServices.DrawElement(Canvas.Handle, Details, ClientRect);

    ThemeServices.DrawText(Canvas.Handle, Details, Caption, ClientRect,

      DT_EXPANDTABS or DT_VCENTER or DT_CENTER or DT_SINGLELINE, );

  end;

end;

procedure TForm2.FormCreate(Sender: TObject);

var

  APanel: TVSPanel;

begin

  APanel := TVSPanel.Create(Application);

  APanel.Left := ;

  APanel.Top := ;

  APanel.Width := ;

  APanel.Height := ;

  APanel.Caption := '具有 Button 风格的 Panel';

  APanel.Parent := Self;

end;

end.

参考：http://www.cnblogs.com/key-ok/p/3380535.html