RadioGroup Buttons mit komponenten verbinden

AlexanderAcker · Hält's aus hier Beiträge: 3

Also wenn ich in RadioGroup über Item die Buttons eingefügt habe will ich ich das 1.Button z.B. mit einen Edit feld verbinden und das 2.Button soll die Farbe des RadioGroup Fensters ändern. Wie mach ich das nun???
Kann mir bitte einer helfen

Ehemaliges Mitglied Erhaltene Danke: 1

RadioGroup?
Ist das nicht dieses "Panel" mit den eingebauten Radiobuttons?
Ich verstehe zwar den Sinn deines Vorhabens nicht so ganz -das muss ich ja aber auch nicht!- deswegen mein Tipp: schau dir die Eigenschaft "ItemIndex" an.

Am besten in Verbindung mit dem "OnClick"-Ereignis. Damit hast du eine Kontrollmöglichkeit, wann der Anwender in das Ding geklickt oder den Status anderweitig verändert hat. Und über "ItemIndex" bekommst du heraus, welcher Radiobutton ausgewählt ist.

Die Delphi-Hilfe (F1) bietet dazu bessere Erklärungen.

AlexanderAcker · Hält's aus hier Beiträge: 3

Ich dachte mehr an sowas :

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.RadioGroupClick(Sender: TObject);
begin
  a:=StrToFloat(EditA.text);
  b:=StrToFloat(EditB.Text);
  If Items.selected.Caption:='addieren' then
    EditE.text:=FloatToStr(a+b);
  GroupBox1.Color:=clred;
end;

Ich weis nur nich wie ich die einzelnen Items ansprechen soll ???

LCS · Verfasst: Mo 21.10.02 18:15

Hi
die Items der Radiogroup sind vom Typ TStrings. Also kannst du sie auch genauso ansprechen.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.RadioGroupClick(Sender: TObject); 
begin 
  a:=StrToFloat(EditA.text); 
  b:=StrToFloat(EditB.Text); 
  If RadioGroup.Items[0].Checked then 
     EditE.text:=FloatToStr(a+b); 
  ...
end;

Oder Besser

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.RadioGroupClick(Sender: TObject); 
begin 
  case RadioGroup.ItemIndex of
    0: TuDies
    1: TuJenes
    2: Machwasduwillst;
  end;
end;

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

AlexanderAcker · Hält's aus hier Beiträge: 3

@ LCS
Vielen Dank !!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme