Manejo de Componentes en Tiempo de ejecución

[rruffino]

Hola Caro, mil gracias por la respuesta!! Todo lo que has puesto lo he implementado y anda a las mil maravillas. Ahora me ha surgido una duda, yo puedo crear varios componentes label en tiempo de ejecucion y he podido asignarle el evento onclick, ahora, cuando yo hago el click en el label necesito saber sobre cual lo hago, aunque sea me interesa conocer el Caption del label sobre el cual se hizo el click al momento de ejecutar el procedure. Esto es a fines de que lo necesito para buscar ese valor en una tabla. Ya con esto creo que estaria.
Nuevamente te agradezco tus prontas y eficientes respuestas.
Saludos cordiales!

[*Caro*]

Empezado por rruffino

.........Ahora me ha surgido una duda, yo puedo crear varios componentes label en tiempo de ejecucion y he podido asignarle el evento onclick, ahora, cuando yo hago el click en el label necesito saber sobre cual lo hago, aunque sea me interesa conocer el Caption del label sobre el cual se hizo el click al momento de ejecutar el procedure.......

Hola de nuevo, con lo que te puse arriba ya lo tienes, esta parte:

Código Delphi [-]
procedure TForm1.ClickLabels(Sender: TObject);
begin
 Showmessage(TLabel(Sender).Caption); //esto lo asignas a una variable
end;

El unico detalle es que debes asignarle el mismo evento a todos tus Labels y con el parametro Sender ya sabes sobre cual se a hecho click.

Saluditos

[rruffino]

Bien Caro, gracias, ha funcionado perfectamente. Ahora por ejemplo yo he creado varios labels en tiempo de ejecucion y quisiera mediante un timer cambiar el color de la fuente, te adjunto el codigo que he hecho pero no me lo hace. Este codigo va en un timer, o por ahi hay otra forma de hacerlo que no la se.

Código Delphi [-]
var
  aLabel: TComponent;
begin
  aLabel.FindComponent('NotaUrg_0');
  if Assigned(aLabel) then
    begin
      if (TNxLabel(aLabel).Font.Color=ClBlack)then
        begin
          TNxLabel(aLabel).Caption:='Hola';
          TNxLabel(aLabel).Font.Color:=clRed
        end
      else
        begin
          TNxLabel(aLabel).Font.Color:=clBlack;
          TNxLabel(aLabel).Caption:='Chau';
        end
    end;
end;

Desde ya muchas gracias!!