Componentes en Tiempo de Ejecucion

[*Caro*]

Hola a todos,

Al inicio de mi programa me creo dinamicamente varios labels y les doy de nombres labels1, labels2, labels3 y habilito su evento onclick para todos estos que seria el mismo.
lab:=TLabel.Create(self);
lab.Parent:=self;
lab.Left:=x+10;
lab.Top:=y+10;
lab.Width:=lab.Width+50;
lab.Caption:=etiqueta;
lab.Name:='labels'+indice;
lab.OnClick:=Label1Click;
En este evento onclick me gustaria poder saber cual de los labels creados esta siendo presionado, quiero recuperar el nombre del label presionado, mi problema es que cada vez que hago click en los labels creados siempre me recupera el nombre del ultimo label creado.

[roman]

Usa el parámetro Sender del evento:

Código Delphi [-]
if (Sender is TLabel) then
  if TLabel(Sender).Name = 'Label1' then
    ...
  else if TLabel(Sender).Name = 'Label2' then
    ..
  else if TLabel(Sender).Name = 'Label3' them
    ..

También, cuando creas los label podrías usar su propiedad Tag en lugar de Name:

Label.Tag := 1 ó 2 ó 3

lo que te permite una construcción más clara en el evento:

Código Delphi [-]
if Sender is TLabel then
  case TLabel(Sender).Tag of
    1: ...
    2: ...
    3: ...
  end;

// Saludos

[*Caro*]

Muchas Gracias, si funciona.