Ayuda con TPanel

[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;

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

Por cierto, has puesto tu pregunta en el foro "Internet" y no tiene nada que ver.

De nuevo, Bienvenido


.

[ecfisa]

Hola FideRosado, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

También te recomiendo que cuando incluyas código en tus mensajes utilices TAG's, una imágen del uso:


Con respecto a tu consulta, entiendo que deseas que los paneles cambien de color de acuerdo a si el TCheckBox que contiene esté o no marcado.

No uso el control TRzPanel, pero te pongo un ejemplo basado en tu código usando el control TPanel:

Código Delphi [-]
...
procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  if TCheckBox(Sender).Checked then
    TPanel(TCheckBox(Sender).Parent).Color := clRed 
  else
    TPanel(TCheckBox(Sender).Parent).Color := clBtnFace
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Pnl         := TPanel.Create(nil);
  Pnl.Name    := 'PnlUser' + IntToStr(numberpanel);
  Pnl.Caption := '';
  Pnl.Align   := alTop;
  Pnl.Height  := 60;
  Pnl.Parent  := ScrollBox1;
  Pnl.ParentBackground := False;
  
  with TCheckBox.Create(nil) do
  begin
    OnClick := CheckBoxClick;
    Name    := 'CheckMail'+ IntToStr(numberpanel);
    Caption := '';
    left    := 16;
    top     := 21;
    Width   := 17;
    Parent  := Pnl;
  end;
end;

Saludos.

Edito: (Disculpas Casimiro, no había visto tu mensaje mientras escribía)

[Casimiro Notevi]

Empezado por ecfisa

Edito: (Disculpas Casimiro, no había visto tu mensaje mientras escribía)

Tu respuesta es muchísimo mejor que la mia, y además le has resuelto la duda

[FideRosado]

la verdad es que estoy tan concentrado en el problema que ni lo note ,.. ahora mismo pruebo el codigo, para ver si me funciona, la verdad este es un foro de lo mejor..
yo uso trz componentes desde hace rato y la verdad es que es bueno, tiene muchas facilidades,..con los estilos y otros..
echenles un vistazo..

[FideRosado]

aca les envio una actualizacion del codigo
uso la misma propiedad color para tomar y debolver el estado del chekbox...

Código Delphi [-]
procedure TForm1.ChkClick(Sender: TObject);
begin
  if TRzCheckBox(Sender).Checked then
  begin
    TRzCheckBox(Sender).Color:= TRzPanel(TRzCheckBox(Sender).Parent).Color;
    TRzPanel(TRzCheckBox(Sender).Parent).ParentColor:=false;
    TRzPanel(TRzCheckBox(Sender).Parent).Color := $00CAF0FF;
  end
  else
  begin
    TRzPanel(TRzCheckBox(Sender).Parent).Color := TRzCheckBox(Sender).Color
  end;
end;

aqui agrego unas lineas, que parecen bobas pero nos permiten guardar independientemente el color de fondo..
y que se mantenga alternados..los colores
.. pero me di cuenta que cuando selecciono mas de dos y los desmarco no se me ponen los colores como son ,, que se le puede sumar a este tema para solucionarlo..

bueno me puse a trabajar en eso y lo consegui..

primero use un TRzCheckBox en vez de TCheckBox , porque?? este cambio , pues , trz me permite asignar un color mientras lo pongo transparente, ahi esta el truco, mantener el color de fondo, guardandolo en el mismo objeto que lo ejecuta...

Código Delphi [-]
  with TRzCheckBox.Create(nil) do
  begin
    OnClick := ChkClick;
    Name:= 'CheckMail'+IntToStr(numberpanel);
    Caption:='';     ParentColor:=false;
    Transparent:=true;
    left:=16;
    top:=21;
    Width:=17;
    Parent:= Pnl;
  end;

[FideRosado]

ahora estoy pensando en incorporar una funcion o procedimiento en un boton que me permita saber si entre los paneles , que he creado tengo un checkbox activo, pero no encuentro la forma de hacerlo,.. necesito ayuda con eso ...

estoy tratando pero no se me ocurre nada..