function GetCtrls(MyForm: TForm): TStringList;
var i: Integer;
begin
Result:=TStringList.Create;
for i:=0 to MyForm.ComponentCount-1 do
Result.Add(MyForm.Components[i].Name);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.AddStrings(GetCtrls( Self)) ;
end;
//显示窗体中所有控件的函数
原文：http://www.cnblogs.com/jijm123/p/6457863.html
var i: Integer;
begin
Result:=TStringList.Create;
for i:=0 to MyForm.ComponentCount-1 do
Result.Add(MyForm.Components[i].Name);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.AddStrings(GetCtrls( Self)) ;
end;