Cambiar la propiedad a un componente

[JefeNet]

hola en mi programa delphi estoy creando unas labels en tiempo de ejecucion, las creo con la propiedad visible=false.
bien si yo quisiera poner esta propiedad a true en tiempo de ejecucion como lo haria ya que en tiempo de diseño no existe ese componente??

me explico mejor:

creo una etiqueta en tiempo de ejecucion

	  notas:=TJvAngleLabel.Create(self);
	  notas.Parent:=self;
	  notas.Caption:='2';
	  notas.Top:=nota-2;
	  notas.Visible:=false;
	  notas.Name:='Etiqueta1'; //<--- nombre de la etiqueta
	  notas.Font.Size:=18;
	  notas.visible:=false;

bien ahora ya esta creada en el form pero invisible, como haria para ponerla visible al pisar un boton (por ejem). ya que en tiempo de diseño en el evento onclick del boton no puedo poner etiqueta1.visible:=true puesto que no existe aun. ojela me entiendan.

gracias

[[eduarcol]]

Es que tienes que buscarla en el formulario, por ejemplo si el formulario se llama form1 harias:

Código Delphi [-]
var
   Etiqueta: TControl;

   Etiqueta := Form1.FindChildControls('Etiqueta1'); //Esta instruccion la digo de memoria
   if Etiqueta is TLabel then
      TLabel(Etiqueta).Visible := True;

[JefeNet]

hola, hice lo que me dices pero en la linea

TLabel(Etiqueta).Visible := True;

me da un error dice: constant expression expected.

Empezado por eduarcol

Es que tienes que buscarla en el formulario, por ejemplo si el formulario se llama form1 harias:

Código Delphi [-]
var
Etiqueta: TControl;
 
Etiqueta := Form1.FindChildControls('Etiqueta1'); //Esta instruccion la digo de memoria
if Etiqueta is TLabel then
TLabel(Etiqueta).Visible := True;

[roman]

Empezado por JefeNet

TLabel(Etiqueta).Visible := True;

me da un error dice: constant expression expected.

¿Estás seguro de que es en esta línea? No veo razón alguna por la cual te de ese error.

Por otro lado, contrario a lo que dice la documentación, al menos en Delphi 7 no te va a servir FindChildControl, pues sólo busca descendientes de TWinControl y no de TControl como lo es un TLabel. En su lugar puedes usar FindComponent:

Código Delphi [-]
var
  Component: TComponent;

begin
  Component := Form1.FindComponent('Etiqueta1');
  if Component is TLabel then
    TLabel(Component).Visible := true;
end;

// Saludos

[JefeNet]

listo pana gracias, el error era mio solo que en vez de

Etiqueta := fdictado.FindChildControls('Etiqueta1'); //Esta instruccion la digo de memoria

es

Etiqueta := fdictado.FindChildControl('Etiqueta1'); //Esta instruccion la digo de memoria

sin la letra "s" en fdictado.FindChildControl

gracias

[JefeNet]

correccion de lo que dije. como tu lo has dicho no sirve en delphi 7 pero lo solucione haciendo esto

TLabel(FindComponent('Etiqueta1')).Visible:=true;

asi si es la cosa.

gracias pana. vivo en barquisimeto

[[eduarcol]]

Empezado por JefeNet

gracias pana. vivo en barquisimeto

Es que ese pana no podia ser de otro lugar sino de Venezuela

Bueno ya estamos tres en linea, jajaja Jure = Valencia, Tu = Barquisimeto, Yo = Merida. Crece el Club en Venezuela