![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#5
|
|||
|
|||
|
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.. |
|
|
|