disculpa si no te comprendo pero..
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..
|