componentes que estam no form em run-time.

Delphi

27/05/2005

bom dia,

Como faço para que em run-time eu consiga a lista de todas as classes utilizada no form e quais os componentes tbm
obrigado.


Tronbr

Tronbr

Curtidas 0

Respostas

Marco Salles

Marco Salles

27/05/2005

Como faço para que em run-time eu consiga a lista de todas as classes utilizada no form e quais os componentes tbm obrigado.


Seria isto :?: :?: :?: :?: 

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=0;
ListBox1.Clear;
ListBox2.Clear;
while i <= Form1.Componentcount-1 do
  begin
   if  ListBox1.Items.IndexOf(Form1.Components[i].ClassName) < 0 Then
     begin
      listBox1.Items.Add(Form1.Components[i].ClassName);
       ListBox1.Items.Add(´´);
     end;
    ListBox2.Items.Add(Form1.components[i].Name);
    ListBox2.Items.Add(´´);
   i:=i+1;
  end
end;



GOSTEI 0
Tronbr

Tronbr

27/05/2005

Valeu, show de bola. Funcionou na medida.


GOSTEI 0
POSTAR