Mirror

How to connect a TRadioGroup to a TCheckListBox (Views: 100)


Problem/Question/Abstract:

I have a form that contains a radio groupbox with 4 items associated with it and a checklistbox with 4 items as well. In this case the radio box dictates which items in a checklistbox can be selected. For example, if the radio groupbox is set to item 3, that means only the first 3 items in the checklistbox can be selected. Therefore, if the user changes the radiobox setting to the second item, only the first 2 selections in the checklistbox are allowed to be marked and the third item that was previously checked should be cleared.

Answer:

procedure MyProc(RadioBoxSender: TRadioGroup; CheckListBoxSender: TCheckListBox);
var
  I: Integer;
begin
  with CheckListBoxSender do
    for i := 1 to 3 do { no need to do 0}
      if i > RadioBoxSender.ItemIndex then
        checked[i] := false;
end;

<< Back to main page