View Single Post
  #1  
Old 13/02/2011
DarkBlue's Avatar
DarkBlue DarkBlue is offline
Miembro
 
Join Date: Jun 2010
Posts: 105
Rep Power: 17
DarkBlue Va por buen camino
Talking deshabilitar componentes a traves de una lista

Hola ahora quisiera saber como desabilitar componentes por medio de una lista ya que ya encontre como desabilitar componentes dependiendo de la clase que sean ...

Código Delphi [-]
Procedure ActDescBotones(Valor:Boolean); 
Var 
i: integer; 
Begin 
for i := ComponentCount - 1 downto 0 do 
begin 
if Components is TButton then 
TButton(Components).Enabled := False; 
end; 
End;

intente modificar el codigo pero me hace falta conocimiento e imaginacion , tengo en un arreglo de string (desabilita) los nombres de los componentes que quiero desabilitar pero no se me ocurre una manera intente algo como esto pero nisiquiera corre jajaja . Ademas que me sorprende eso del IS que es?

Código Delphi [-]

for x:=0 to length(desabilita) do
begin


if inventario.Components[X].Name=desabilita[x] then
TComponent(inventario.Components[x]).Enabled := False;

end;

por su atención gracias
__________________
Todo es Relativo
Reply With Quote