Un Evento comun, distintas variables

[[FGarcia]]

Manos a la obra!

Mira aqui en el evento OnClick del checkbox1 es donde se origino todo. La idea original era que al dispararse el evento Onclick del CheckBox1 se guardara el estado en una variable sin embargo si son varios checkbox se puede usar la caracteristica de codigo compartido de los componentes; es decir que el codigo se escribe una sola vez y lo usan varios CheckBox (en este caso, podrian ser Buttons o algun otro) yo pensaba usar una variable y eso me causaba el disgusto de como saber que checkbox era el que habia sido seleccionado y entonces como saber en que variable se guardaria. Para dos o tres no es mucho problema repetir el codigo -aun asi seria una mala practica ¿no?- pero si son mas 10, 15 30 etc. Bueno eso lo resolvio -en un hilo que menciono dentro del zip- Lepe y si lo observas muy elegantemente.

Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  { http://www.clubdelphi.com/foros/show...d=1#post250309
   Todos los checkboxes comparten este evento.
   Usamos el moldeo de tipo "TCheckbox(Sender)" para decirle al 
    compilador que siempre será un TCheckbox el que genere
    este evento
   Usar el Inspector de Objetos para asignar valor a Tag
  }
  
  checados[TCheckbox(sender).Tag] := TCheckbox(Sender).checked;
end;