EnumerateControls

procedure EnumerateControls(parentControl: TWinControl; proc: TProc); aion rmt
list: TList; アイオン 攻略
begin RMT 携帯
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;