Uso de FindComponent

[[Lepe]]

Código Delphi [-]
procedure TFmRegistro.Button1Click(Sender: TObject);
var
i:Integer;
begin
with ScrollB do // <----------------- faltaba esto.
for i:= 0 to ComponentCount -1 do
  if Components[i] is TLabel then
    TLabel(Components[i]).Caption := 'Arpeel';
end;

Tal y como lo tenías, mira en la ventana, pero no dentro del ScrollB.

Saludos

[vlanka24]

Lepe, muchas gracias por tu respuesta.

Tienes toda la razón, solo buscaba los componentes en la ventana y no dentro del ScrollBox como yo lo necesito.

El código de prueba me funciona, pero sigue sin identificarme la etiqueta a la que le doy click; por decir tengo las siguientes etiquetas y al darle el click a la etiqueta Empleado 02, quiero que esta cambie de color.

Empleado 01
Empleado 02
Empleado 03

Cosa que intento hacer de la siguiente manera:

Código Delphi [-]
procedure TFmRegistro.MiClick(Sender: TObject);
var Etiqueta: TLabel;
begin
{ASIGNO EL NOMBRE DE LA ETIQUETA}
with ScrollB do
begin
Nombre:= (Sender as TComponent).Name; <--- El valor que me arroja es por ejemplo Lb4 
Etiqueta := TLabel(FindComponent(Nombre)); <--- Aqui es donde siempre la asignación es Nil 
end;
 
if Assigned(Etiqueta) then
begin
if (Etiqueta is TLabel) then <---- Esta línea podría evitarse.
TLabel(Etiqueta).Font.Color:= ClMaroon;
end;
end;

Cualquier comentario, se los agradecere.
Saludos.

[Neftali [Germán.Estévez]]

Empezado por vlanka24

Cualquier comentario, se los agradecere.

Comento que funciona perfectamente; La etiqueta sobre la que pulsas cambia su texto al color definido (marrón). Lo he probado.
¿?¿?¿?

[[Lepe]]

Algo me he perdido, aquí tienes otra forma:

Código Delphi [-]
procedure TFmRegistro.MiClick(Sender: TObject);
var lbl:TLabel;
begin
  TLabel(Sender).Font.Color:= ClMaroon;

  lbl := TLabel(Sender);
  // aquí tienes el label por si necesitas hacer más cosas con él.

end;

Si todas las etiquetas tienen definido el mismo evento OnClick (en este caso MiClick), Sender es ya un puntero al label donde se hizo clic.

Saludos