Fórum Abrir todos os Tables, sem colocar o nome do componente. #176679
22/08/2003
0
Pessoal, estou precisando fazer uma coisa que sei que é possível porém não sei como fazer:
Tenho que fazer uma função que deve fazer um Loop em todos os componentes Table´s do meu formulário atual, deixando-os Ativos, isso é, abrindo todos eles, sem eu ter que decarar o nome do objeto. Se for Table, deve abrir.
Agradeço muito se alguém me der uma solução,
Alex. :)
Tenho que fazer uma função que deve fazer um Loop em todos os componentes Table´s do meu formulário atual, deixando-os Ativos, isso é, abrindo todos eles, sem eu ter que decarar o nome do objeto. Se for Table, deve abrir.
Agradeço muito se alguém me der uma solução,
Alex. :)
Alex_
Curtir tópico
+ 0
Responder
Posts
22/08/2003
Nildo
Ok. Aí vai!
t+
var
nAux: integer;
begin
for nAux := 0 to ComponentCount-1 do
begin
if Components[nAux] is TTable then
TTable(Components[nAux]).active := True;
end;
end;t+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)