Question

I have 3 radio groups which I display on different tabsheets of a single form app, but they basically all have the same underlying functionality (and only one can be visible to the user at a time).

That is to say, if the user selects a new Radio Button of any of them, I want to programatically update the ItemIndexof the other two, to match.

BUT, I don’t want to execute the OnClick() function three times.

Is there a an easy way to do this, or should I just use a single radio group and keep changing it’s Parent, Top and Left as the user changes the visible tab?

The App currently has no menu, so it seems ugly to add one just for this.

Answer 1

Create 3 radiogroups but only one event handler and assign it to all radiogroups:

procedure TForm1.RadioGroupClick(Sender: TObject);

var Index : Integer;

begin
 RadioGroup1.OnClick := nil;
 RadioGroup2.OnClick := nil;
 RadioGroup3.OnClick := nil;
 Index := TRadioGroup(Sender).ItemIndex;
 RadioGroup1.ItemIndex := Index;
 RadioGroup2.ItemIndex := Index;
 RadioGroup3.ItemIndex := Index;
 RadioGroup1.OnClick := RadioGroupClick;
 RadioGroup2.OnClick := RadioGroupClick;
 RadioGroup3.OnClick := RadioGroupClick;
end;