delphi用for语句实现控件的操作

答案：
//先遍历窗体所用控件, 然后再用with do来写控件属性
//显示窗体中所有控件的函数
//TWinControl是组件, 保存在TStringList中
function GetCtrls(Control: TWinControl; List: TStringList): Boolean;
var
  i: Integer;
  obj: TWinControl;
begin
  for i := 0 to Control.ControlCount-1 do
  begin
    obj := TWinControl(Control.Controls[i]);
    List.Add(obj.Name);

    //如果控件中包含其他控件, 则递归调用
    if obj.ControlCount > 0 then
    begin
      GetCtrls(obj, List);
    end;
  end;
  Result := True;
end;

//比如是button
//for i := 0 to 199 do
  begin
    with TButton.ControlIndex[i] do
    //这里改控件属性就可以
  end;

上一个：Delphi 是如何实现渐变窗口背景的？
下一个：学习delphi需要记住的都有什么