Abrir todos os Tables, sem colocar o nome do componente.

Delphi

22/08/2003

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. :)


Alex_

Alex_

Curtidas 0

Respostas

Nildo

Nildo

22/08/2003

Ok. Aí vai!

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+


GOSTEI 0
POSTAR