TGroupbox, Tag property

[Gutelo]

Hallo,

ich moechte folgendes realisieren:

Auf einem Form habe ich eine TRadioGroup mit diversen items und mehrere TGroupboxes. Abhaengig davon welches item in der RadioGroup ausgewaehlt wird sollen bestimmte Groupboxes angezeigt werden (visible=true) waehrend alle uebrigen verteckt werden sollen (visible = false).

Ist es eine gute Praxis die Zuordnung von Groupbox <--> Radiogroup item ueber die Tag property der TGroupboxes zu machen oder sollte ich bei:

Delphi-Quellcode:

case RadioGroup1.itemindex of
  0: begin Group1.visible:= true; Group2.visible:=false; Group3.visible:=true; end;
  1: begin Group1.visible:= false; Group2.visible:=true; Group3.visible:=false; end;
  ...
end;

bleiben? Bei der Variante mit den Tags koennte ich es spaeter einfacher um weitere Groupboxes erweitern. Ich hab folgendes im Sinn:

Delphi-Quellcode:

for i :=0 to Form1.ComponentCount - 1 do
    begin
     if Components[i] is TGroupBox then
     begin
       if (StrToInt(Components[i].Tag) = RadioGroup1.itemindex) 
          then Components[i].visible := true else Components[i].visible:=false;
     end;
end;

Gutelo