Uso de FindComponent

[vlanka24]

Hola a todos...

De ante mano le agradezco que lean este problemilla.

Estoy creando unas etiquetas en tiempo de ejecución conforme a una lista de empleados esto lo hago de la siguiente manera:


procedure TFmRegistro.CrearListaReg;
const Nom = 'Lb';
var i: Integer;
begin
{BORRO LOS COMPONENTES QUE SE HAYAN CREADO ANTERIOR/}
ScrollB.DestroyComponents;
For i:=1 to DataMod.TbEmpleados.RecordCount do
begin
{CREAR LAS ETIQUETAS CON EL NOMBRE DEL ID EMPLEADO}
Etiqueta:= TLabel.Create(ScrollB);
Etiqueta.Caption:= DataMod.TbEmpleadosNOMBRECOMP.DisplayText;
Etiqueta.Width:= 300;
Etiqueta.Left:= 8;
Etiqueta.Top:= 8 + i*20;
Etiqueta.Name:= Nom + DataMod.TbEmpleadosID_EMPLEAD.DisplayText;
Etiqueta.Parent:= ScrollB;
{ASIGNO LOS EVENTOS A LOS CUALES VA A RESPONDER EL COMPONENTE}
Etiqueta.OnClick:= Self.MiClick;
{CREAR TEXTOS}
Textos:= TStaticText.Create(ScrollB);
if DataMod.TbTipoEmp.FindKey([DataMod.TbEmpleadosIDTIPO_EMP.DisplayText]) then
Textos.Caption:= DataMod.TbTipoEmpTIPO.DisplayText + ' ' + '$:' + DataMod.TbTipoEmpSUELDO_BAS.DisplayText + ' ' + LbEdAcierre.Text;
Textos.Width:= 300;
Textos.Left:= 328;
Textos.Top:= 8 + i*20;
Textos.Parent:= ScrollB;
DataMod.TbEmpleados.Next;
end;
end;


Este código me funciona muy bien el problema es que cuando quiero marcar a un empleado con la falta al darle click la etiqueta que se supone ya le asigne un nombre y esta creada; no me crea el componente, para buscarlo hago lo siguiente:


esto es solo una prueba para saber si me identifica las etiquetas:


procedure TFmRegistro.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:= 0 to ComponentCount -1 do
if Components[i] is TLabel then
TLabel(Components[i]).Caption := 'Arpeel';
end;


Lo que pasa es que la etiquetas creadas en tiempo de diseño no tiene problema pero las que yo estoy creando no las encuentra.


Espero que me entiendan, no se si es tanta mi frustración que digo tanto y al final de cuentas no me doy a enter.

De antemano gracias.

[Lepe]

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:


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 :confused:
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]]

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.
:confused:¿?¿?¿?

[Lepe]

Algo me he perdido, aquí tienes otra forma:

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