Ver Mensaje Individual
  #3  
Antiguo 05-12-2007
vlanka24 vlanka24 is offline
Miembro
 
Registrado: mar 2007
Ubicación: México.
Posts: 23
Reputación: 0
vlanka24 Va por buen camino
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.

Última edición por dec fecha: 05-12-2007 a las 00:55:44.
Responder Con Cita