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
protected
public
published
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