[FideRosado]

hola, tendo que cambiar el color a un tpanel a traves de la asignacion de un evento, es decir ,, tengo una lista de tpanel creandoce y dentro tengo un tchekbox, luego asigno una funcion al evento onclick del chekbox , pero no se como al seleccionar el check box me cambie el color del panel, trate de usar parent.name para obtener el nombre del panel pero hasta ahy me quedo,

aca les paso el codigo..

en public
--------------------------------------

Código Delphi [-]
 procedure ChkClick(Sender: TObject);

en implementation
-------------------------------------

Código Delphi [-]
procedure TForm1.ChkClick(Sender: TObject);
begin

  with Sender as TCheckBox  do
  begin
    ShowMessage( Parent.Name );

      with Parent do
      begin
          Color:=$00C67200;
      end;

  end;

end;

procedure TForm1.RzToolButton1Click(Sender: TObject);
begin

    Pnl := TRzPanel.Create(nil);
    Pnl.Name:= 'PnlUser'+IntToStr(numberpanel);
   // Pnl.OnClick := ChkClick;
    Pnl.Caption:='';
    //'Hola al panel '+IntToStr(numberpanel);
    Pnl.Align:= alTop;
    if changecolor = 0 then
    begin
      Pnl.Color:=$00F7F7F7;
      changecolor:=1;
    end else begin
      Pnl.Color:=clBtnHighlight;
      changecolor:=0;
    end;

    Pnl.Height:=60;
    Pnl.BorderSides:=[];
    Pnl.Parent:= ScrollBox1;
   
   //  ckekbox
   //  Chk := TCheckBox.Create(Pnl);

   with TCheckBox.Create(nil) do
   begin
    OnClick := ChkClick;
    Name:= 'CheckMail'+IntToStr(numberpanel);
    Caption:='';
    left:=16;
    top:=21;
    Width:=17;
    Parent:= Pnl;
   end;

end;