A set of mutually exclusive check boxes

seafea

Hi.

I've got a FAST report with a series of YES/NO checkboxes, and I'm trying to write a method that will uncheck the second the corresponding checkbox if the other one is clicked.

I know that something like

procedure ChkboxScannedVerifiedOnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
    TfrxCheckboxView(Sender).Checked := not TfrxCheckboxView(Sender).Checked;                                                                                                    
  Modified := True;  
end;

can be used to check or uncheck a single checkbox.

But the method I've written doesn't work. I've written 8 methods. One for each checkbox.

procedure ChkboxScannedVerifiedOnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
    CheckBox24.Checked := not CheckBox24.Checked;
    if CheckBox25.Checked then
      CheckBox25.Checked := False;
    end;                      
  Modified := True;  
end;

Any idea what I'm doing wrong here?

seafea

Am I unable to edit anything but sender for this event?

I can change properties of other objects for an event like OnAfterData, but I'm unable to make any changes for anything except Sender for OnPreviewClick.