Cambiar fondo de un tpanel

[jocaro]

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:

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:

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

[cloayza]

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


Panel1.ParentBackground:=False;


Luego puedes dar el color que requieres al TPanel:


Panel1.Color:=clRed;


Saludos