[linuz]

Hola a todos,

Estoy creando una aplicación donde creo paneles en tiempo de ejecución.

Código Delphi [-]
 
{public declarations}
 boton:TPanel;
.....
procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k: integer;
  i := 0;
  j:= 1;
  k:= 0;
  while i <12 do
    begin
      i := i +1;
      boton := TPanel.Create(Self);
      boton.parent := Panel2;
      boton.left := 61;
      boton.Left := boton.Left* i;
      boton.Width := 60;
      boton.top :=  1;
      boton.Caption:= inttostr(i) + ':00';
      boton.OnClick := Clic;
end;
end;

procedure TForm1.clic(Sender: TObject);
begin
...
end;

Tengo una duda, y es que los objetos los crea bien, pero no se como poder hacer que cuando se haga clic sobre un objeto sepa que objeto ha sido, es decir, conocer su nombre, su caption, etc...


Muchas gracias.

Un saludo.