delphi - 如何在Delphi中使用参数转换

如何在Delphi中执行此操作：

procedure ToggleVisibility(ControlClass : TControlClass);
var
  i : integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is ControlClass then
      ControlClass(Components[i]).Visible := not Control(Components[i]).Visible;
end;

在这种情况下，编译器不允许强制转换。有任何想法吗？

我正在使用Delphi 2007。

最佳答案

(Components[i] as ComponentClass).Visible