Mehrere Objkete auf einmal anzeigen/ausblenden

[ConstantGardener]

Hallo Daniel8520, hatte ich beim antworten gar nicht gesehen :shock: :cyclops: ... Da hätte es kürzere Wege gegeben als die Frage und die Antwort einmal im Internet um die halbe Welt zu schicken... :mrgreen: 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. :lol: