Mehrere Objkete auf einmal anzeigen/ausblenden

[Lannes]

Hallo,

die Eigenschaft Visible stammt von TControl, also IMHO so:

Delphi-Quellcode:

var aObj : TObject;
    i: Integer;
begin
  for i := 0 to ComponentCount-1 do
    begin
    aObj := Components[i];
    if aObj is TControl then
      if TControl(aObj).Tag = 10 then
        TControl(aObj).Visible := False;
    end;
end;