Ver Mensaje Individual
  #2  
Antiguo 18-05-2018
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Reputación: 20
newtron Va camino a la fama
Hola, mira a ver si esto es lo que necesitas.

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  N: SmallInt;
begin
  for N := 0 to ComponentCount - 1 do begin
    ShowMessage(Components[N].Name);
  end;

end;
Saludos
__________________
Be water my friend.
Responder Con Cita