RadioButtonArray

[t0mmy]

Hallo

Ich habe 6 Radio Buttons. Die habe ich zu einem Array zusammengefasst.
Jetzt möchte ich gern wissn wenn beliebig eins selectiere welches das ist sprich die nummer bekomme.

[t0mmy]

Also ich habs jetzt mal mit einer schleife probier aber geht das nicht einfacher

for-schleif-Variante:

Delphi-Quellcode:

var
  a: Integer;
begin
  for a := 0 to 5 do
  begin
    if RadioButtonArray[a].Checked = True then
      ShowMessage('RadioButton: '+IntToStr(a));
  end;

[Klaus01]

.. Du könntest jedem Radiobutton als Tag die Position im Array geben.
Den Tag kannst Du dann später wieder auslesen.

edit:

eine gleiche onClick Ereignisbehandlung für alle Radiobuttons.

In der onClick Routine:

Delphi-Quellcode:

showMessage('Radiobutton: '+IntToStr((sender as TRadiobutton).tag));

Grüße
Klaus

[t0mmy]

Also ich hätte eine RadioGroup nehmen können und dann mit .ItemIndex abfragen, aber die Reihenfolge konnt ich in der RadioGroup nicht mit dem Indexwert beeinflussen (andere geschichte).

Jetzt habe ich ein eigenes Panel mit RadioButtons und ich bräuchte halt so eine funktion mit .ItemIndex

[Coffeecoder]

Zitat:

Zitat von t0mmy (Beitrag 1146324)

Jetzt habe ich ein eigenes Panel mit RadioButtons und ich bräuchte halt so eine funktion mit .ItemIndex

Du kannst eine eigene Klasse definieren wo du ein Attribut ItemIndex hast.

[shmia]

Zitat:

Zitat von t0mmy (Beitrag 1146324)

Also ich hätte eine RadioGroup nehmen können und dann mit .ItemIndex abfragen, aber die Reihenfolge konnt ich in der RadioGroup nicht mit dem Indexwert beeinflussen (andere geschichte).

Die Reihenfolge ist ja auch durch die Reihenfolge in RadioGroup.Items definiert.
Um z.B. die ersten beiden Eintröge zu vertauschen:

Delphi-Quellcode:

RadioGroup1.Items.Exchange(0,1);

Sortieren wäre über einen kleinen Umweg auch möglich.
Man müsste halt wissen wozu du die Reihenfolge ändern musst...

[t0mmy]

@shima leider nicht das was ich suche.. kennt die option schon.

Eine andere Frage ich habe diese RadioButtons auf einem Panel jetzt möcht eich halt wenn ich einen von diesen RadioButtons anklicke das eine Prozedure angearbeitet wird.
Das Problem is ich müsste meine Prozedur bei jedem OnKlick-Ereignis von den RadioButtons reinschreiben aber das möcht ich nicht. ich such sowas wie bei RadioGroup das OnKlick ereignis für meine "selbstgebastelte" RadioGroup.

[DeddyH]

Zitat:

Zitat von t0mmy (Beitrag 1146331)

Das Problem is ich müsste meine Prozedur bei jedem OnKlick-Ereignis von den RadioButtons reinschreiben

Nein, Du musst das nur einmal schreiben und kannst das Event dann allen RadioButtons zuweisen. Allerdings musst Du dann innerhalb der Methode den Sender auswerten.

[Sir Rufo]

Mein Vorschlag wäre:

Alle RadioButtons in eine Liste (TList) packen

Delphi-Quellcode:

TForm1 = class( TFrom )
...
  procedure MyRadioButtonsClick( Sender : TObject );
private
  fRadioList : TList;
...
end;

procedure TForm1.FormCreate( Sender : TObject );
begin
  fRadioList := TList.Create;
  // Alle RadioButtons in die Liste aufnehmen, dabei auf die gewünschte Reihenfolge achten
  fRadioList.Add( MyRadioButton1 );
  MyRadioButton1.OnClick := MyRadioButtonsClick;
  fRadioList.Add( MyRadioButton2 );
  MyRadioButton2.OnClick := MyRadioButtonsClick;
  ...
  
end;

procedure TForm1.FormDestroy( Sender : TObject );
begin
  // Die RadioButtons werden über den Owner freigegeben, wir müssen also nur die Instanz der Liste befreien
  fRadioList.Free;
end;

procedure TForm1.MyRadioButtonsClick( Sender : TObject );
var
  RadioButtonIndex : Integer;
begin
  // Als Sender wird die Instanz mitgegeben, die dieses Event aufruft - also einer von den RadioButtons
  // Und da die in der Liste stehen sollten, bekommen wir nun so den Index heraus
  RadioButtonIndex := fRadioList.IndeOf( Sender );
end;