Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar la propiedad a un componente (https://www.clubdelphi.com/foros/showthread.php?t=16245)

JefeNet 21-11-2004 00:14:49

Cambiar la propiedad a un componente
 
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
Código:

          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 21-11-2004 02:42:18

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 22-11-2004 21:52:48

hola, hice lo que me dices pero en la linea

Código:

TLabel(Etiqueta).Visible := True;
me da un error dice: constant expression expected.



Cita:

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 22-11-2004 22:16:01

Cita:

Empezado por JefeNet
Código:

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 23-11-2004 05:51:40

listo pana gracias, el error era mio solo que en vez de
Código:

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

Código:

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

sin la letra "s" en fdictado.FindChildControl;)

gracias

JefeNet 23-11-2004 06:06:18

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

Código:

TLabel(FindComponent('Etiqueta1')).Visible:=true;
asi si es la cosa.

gracias pana. vivo en barquisimeto

eduarcol 23-11-2004 12:05:45

Cita:

Empezado por JefeNet
gracias pana. vivo en barquisimeto

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

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


La franja horaria es GMT +2. Ahora son las 13:15:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi