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.Caption:='';
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;
with TCheckBox.Create(nil) do
begin
OnClick := ChkClick;
Name:= 'CheckMail'+IntToStr(numberpanel);
Caption:='';
left:=16;
top:=21;
Width:=17;
Parent:= Pnl;
end;
end;