Alle RadioGroups in einer Schleife auslesen

[Gerhard Seyfarth]

Hallo,
ich habe auf einem Panel 25 Radiogroups mit jeweils 2 Items (ja/nein) platziert. Gibt es eine Möglichkeit, alle Radiogroups in einer Schleife abzufragen oder muss ich den Abfragecode 25 mal schreiben?
Gerhard

[Gerhard Seyfarth]

Hab's schon selber gefunden. Ich benutze Namen und Tags zur Identifizierung der RadioGroups:
Beispiel:
for i:=0 to Panel1.ControlCount-1 do
begin
if Panel1.Controls[i] is TRadioGroup then
if TRadioGroup(Panel1.Controls[i]).ItemIndex = 1 then
ShowMessage(TRadioGroup(Panel1.Controls[i]).Name+' '+
IntToStr(TRadioGroup(Panel1.Controls[i]).Tag)+
' ist abgeschaltet.');
end

[Wolfgang Roller]

Hallo Gerhard,

nur mal so nebenbei ohne deine Anwendung zu kennen. Wenn du deinem Benutzer 25 unabhängige Radiogroups mit jeweils Ja/Nein vorsetzt, dann könntest du das ganze doch auch mit 25 CheckBoxen machen. Die 25 Checkboxen nehmen doch wesentlich weniger Platz ein als die Radiogroups.
Nur mal so als Vorschlag um darüber nachzudenken. Rein vom GUI her erscheint mir das sinnvoller.

Gruß

Wolfgan