Mostrar Componentes
Estoy haciendo una aplicación en la cual necesito hacer referencia a un componente, mi problemas es que no se convertir una variable de cadena para poder llamar el componente por su nombre.
Ejemplo.
Tengo 10 componentes del tipo TLabel
Label1, Label2, etc.
Todas estan ocultos.
tengo un procedimiento que las visualiza.
procedure MostrarComponente(Sender: TObject);
begin
(Sender as TLabel).visible:=True;
end;
A la hora de llamar ese procedimiento lo que necesito pasar como parámetro es un texto para no tener que repetir el mismo código en la llamada sino utilizar un ciclo para hacerlo simple.
for i:=1 to 5 do
MostrarComponente('Label'+IntToStr(i));
Si esta en tus manos ayudarme te lo voy a agradecer.
Ejemplo.
Tengo 10 componentes del tipo TLabel
Label1, Label2, etc.
Todas estan ocultos.
tengo un procedimiento que las visualiza.
procedure MostrarComponente(Sender: TObject);
begin
(Sender as TLabel).visible:=True;
end;
A la hora de llamar ese procedimiento lo que necesito pasar como parámetro es un texto para no tener que repetir el mismo código en la llamada sino utilizar un ciclo para hacerlo simple.
for i:=1 to 5 do
MostrarComponente('Label'+IntToStr(i));
Si esta en tus manos ayudarme te lo voy a agradecer.
1 Respuesta
Respuesta de armageddon
1
La solución esta en el uso de la propedad tag; y debes hacer referencia por la propiedad tago simplemente por la conjunción de comparación "is"
for i:= 1 to self.Component.count - 1 do
if (self.component is TLabel) then
(self.component as TLabel).visible = true
for i:= 1 to self.Component.count - 1 do
if (self.component is TLabel) then
(self.component as TLabel).visible = true
