Code: Alles auswählen
procedure TForm1.RadioButtonChange(Sender: TObject);
begin
if RadioButton1.Checked then begin
Caption := '1';
end;
if RadioButton2.Checked then begin
Caption := '2';
end;
if RadioButton3.Checked then begin
Caption := '3';
end;
end;
Gibt es da eine Art ItemIndex, das man auswerten kann ?
Gut, man könnte eine RadioGroup anstelle der GroupBox verwenden, aber auf die will ich nach Möglichkeit verzichten.
Ausser einer kennt eine Möglichkeit die automatische Ausrichtung der RadioButtons zu unterbinden, da noch andere Komponenten die der Box sind.