Development/Delphi

자식컨트롤 특정 클래스타입 찾기

코드의추억 2015. 7. 17. 13:34
var
  i, checkedCount: Integer; 
begin
  for i:=0 to GBMultiUpdate.ControlCount-1 do
  begin
    if TComponent(GBMultiUpdate.Controls[i]).ClassType = TCheckBox then
      if (GBMultiUpdate.Controls[i] as TCheckBox).Checked then
        Inc(checkedCount);
  end;
end;