Question

delphi中怎么样给panel添加自定义颜色的边框

Answer 1

delphi 的标准 TPanel 组件没有设置边框颜色的选项，如果想要显示自定义颜色可以如下做：

1、先在单元里定义一个同名的 TPanel 类：

type
  TPanel = class(Vcl.Extctrls.TPanel)
  public
    procedure Paint; override;
  end;

procedure TPanel.Paint;
begin
  inherited;
  Canvas.Pen.Color := clRed;//边框为红颜色
  Canvas.Rectangle(ClientRect);
end;

2、此时，在 IDE 里添加一个 TPanel 组件，再运行时，就可以发现 Panel 的颜色就变成了设定值：