Cambiar fondo de un tpanel
 

Hola

Estoy intentando cambiar el color de fondo de un tpanel, pero no lo consigo. A ver si alguien me puede ayudar.

He definido el siguiente tpanel personalizado, para poder utilizar la propiedad canvas:

Código Delphi [-]
unit PanelPersonalizado;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.ExtCtrls;

type
  TPanelPersonalizado = class(TPanel)
  public
    property Canvas;
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Personales', [TPanelPersonalizado]);
end;

end.

Desde la paleta de herramientas del entorno delphi he insertado un tpanel de este tipo. En su evento OnClick he incluido el siguiente código:

Código Delphi [-]
procedure TSDIAppForm.PanelConsultaCadenasCabClick(Sender: TObject);
begin
  PanelConsultaCadenasCab.Canvas.Brush.Color := clBlue;
end;

Pero cuando abro la aplicación y hago click sobre el panel, el color de fondo no cambia.

Gracias de antemano

Para lograr cambiar el color del TPanel debes cambiar la propiedad:

Código Delphi [-]
Panel1.ParentBackground:=False;

Luego puedes dar el color que requieres al TPanel:

Código Delphi [-]
Panel1.Color:=clRed;

Saludos