EnumerateControls

procedure EnumerateControls(parentControl: TWinControl; proc: TProc); RMT アイオン
var アイオン　マクロ
list: TList;
i: Integer;
begin
CheckArgumentNotNull(parentControl, 'parentControl');
list := TList.Create;
try
parentControl.GetTabOrderList(list);
for i := 0 to list.Count - 1 do
begin
proc(TWinControl(list[i]));
end;
finally
list.Free;
end;
end;