Referenciar componente con un string

[ingel]

Hola a todos..
Lo que quiero hacer el lo siguiente ..si se puede...Tengo una tabla donde tengo 3 campos : NombreFormulario (string) , NombreComponente (string), Visible(boolean).. entonces cada vez que entro a un formulario quiero filtrar esa tabla y habilitar los componentes segun esten en true o false en dicha tabla..
Saludos a todos
Gracias

[[Ohcan]]

No sé si te he entendido muy bien...

Podrías usar FindComponent...

Siento no ser más explícito... tengo un poco de prisa, si puedo luego sigo.

Saludos.

[ingel]

lo que yo voy a obtener en variables es :

var1:= TTable.fieldbyname('NOMBRECOMPONENTE).asstring;
res := TTable.fieldbyname('ES_VISIBLE').asboolean;

de la tabla filtrada segun el nombre del formulario donde ingrese.

entonces Var1 valdrá por ej. 'Button1'

lo que quiero hacer en el show del Formx es :

Formx.var1.visible := res;

que equivaldria a poner Formx.button1.visible := true; (o false)


Saludos y gracias

[jachguate]

Pues lo ya dicho te sirve.

Código Delphi [-]
  FindComponent(Var1).Visible := res;

Hasta luego.

[ingel]

como le indico que el componente que leo en un string tiene la propiedad VISIBLE..o sea que es un boton por ejemplo..
el codigo que hice es...

Procedure HabilitaComp(Formulario:TForm);
var vis:boolean;var1:string;
comp:Tcomponent;
begin
with FDatos.TControlComp do begin
filter := 'NOMBREFORM='+#39+Formulario.Name+#39;
filtered := true;
while Not eof do begin
vis :=fieldbyname('VISIBLE').asboolean;
var1:=fieldbyname('NOMBRECOMP').asstring;
with (formulario as TForm) do begin
comp:=findcomponent(var1);
comp.visible := vis;
end;
next;
end;
end;
end;

obviamente no me compila porque no reconoce a VISIBLE....
quise declarar en una VAR tipo TBitBtn pero no me dejo... como le indico que comp es un boton?

Saludos
gracias..

[jachguate]

Hola. En primer lugar, después de 44 mensajes, es de esperar que publiques los trozos de código entre etiquetas [ delphi ], [ sql ] o [ code ], según corresponda. El código que publicaste es realmente dificil de leer!!

Dado que no lo leí, pues me baso en el texto.

El punto es que aqui estamos tratando polimorficamente a los controles, y todos los controles, al heredar de TControl, tienen la propiedad visible. Ya el hecho de que se muestren o se dejen de mostrar en pantalla cada uno con su forma específica se lo dejamos a la herencia (maravilla de POO!).

Hasta luego.

[roman]

Empezado por jachguate

al heredar de TControl, tienen la propiedad visible.

Sólo que FindComponent regresa TComponent y no TControl.

// Saludos

[roman]

Tienes que hacer un moldeo de tipos. FindComponent regresa una referencia de tipo TComponent así que debes moldearla a TButton.

Por favor usa las etiquetas [ code ] o [ delphi ] para que tu código sea legible. Podrás encontrar ayuda de cómo hacerlo en los mensajes que aparecen al principio de cada foro.

// Saludos