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

Question

如何在 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。

Answer 1

由于组件是 TControl 或您必须转换为 TControl 的后代:

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