Vorne weg, nutze die Delphi-Tags wenn du Codebeispiele aufzeigts, weil das übersichtlicher ist.
Eine Möglichkeit wär zum Beispiel:
Delphi-Quellcode:
var
Label1CaptionArr: array[1..3] of String;
Label1LeftArr: array[1..3] of Integer;
Label2CaptionArr: array[1..3] of String;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1CaptionArr[1] := 'Überschrift 1 Radio 1';
Label1LeftArr[1] := 12;
Label2CaptionArr[1] := 'Überschrift 2 Radio1';
Label1CaptionArr[2] := 'Überschrift 1 Radio 2';
Label1LeftArr[2] := 34;
Label2CaptionArr[2] := 'Überschrift 2 Radio2';
Label1CaptionArr[3] := 'Überschrift 1 Radio 3';
Label1LeftArr[3] := 67;
Label2CaptionArr[3] := 'Überschrift 2 Radio3';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
begin
If RadioButton1.Checked then i := 1
Else If RadioButton2.Checked then i := 2
Else i := 3;
Label1.Caption := Label1CaptionArr[i];
Label1.Left := Label1LeftArr[i];
Label2.Caption := Label2CaptionArr[i];
end;
Hier musst du zwar auch noch an 2. Stellen Änderungen vornehmen aber nur geringfügig. Wenn es aber eine RadioGroup ist dann nuch noch im OnCreate, da du dann die Indizes bekommst.
Gruß
Mazel