Mehrere Objkete auf einmal anzeigen/ausblenden

[ConstantGardener]

Hallo Daniel8520, hatte ich beim antworten gar nicht gesehen ... Da hätte es kürzere Wege gegeben als die Frage und die Antwort einmal im Internet um die halbe Welt zu schicken... Na ja, die Welt ist halt klein...

[inherited]

Es gab mal eine Funktion FindComponent:

Delphi-Quellcode:

For i:=1 to 27 do
  (FindComponent('Edit'+IntToStr(i)) as TEdit).text := 'bla';

Ich weiss aber nicht ob es die noch gibt(da ich es unter Delphi2006 noch nie ausprobiert habe, unter 3.0 zumindest funktioniert es)

[daniel8520]

Hallo,

ich habs jetzt mal so probiert!

Delphi-Quellcode:

var
   m,i: Integer;
begin
   m := MainForm.ComponentCount;
   for i := 0 to m-1 do
   begin
     If MainForm.Components[i].Tag = 10 then
     begin
       MainForm.Components[i].???
     end;
   end;
end;

Allerdings hat TComponent keine Visible Eigenschaft (siehe Fragzeichen). Wie kann ich nun diese Komponenten mit dem Tag 10 ausblenden bzw. einblenden?

Danke bis hier her!

[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;

[ConstantGardener]

.... genau so.