Einzelnen Beitrag anzeigen

Gutelo

Registriert seit: 29. Sep 2013
152 Beiträge
 
#1

TGroupbox, Tag property

  Alt 25. Apr 2014, 00:11
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

Geändert von Gutelo (25. Apr 2014 um 00:33 Uhr)
  Mit Zitat antworten Zitat