CheckListBox - Select only one record

Sharing with Delphi Colleagues!

After several searches, the only option was to implement the component OnClickCheck event, I believe this is the only option:

procedure MultiSelect;
var
  i: Integer;
begin
  with Seu_CheckListBox do
  begin
    if (Checked[ItemIndex]) then
    begin
      Items.BeginUpdate;
      for i := 0 to Pred(Items.Count) do
      begin
        if (i <> ItemIndex) then
          Checked[i] := False;
      end;
      Items.EndUpdate;
    end;
  end;
end;

It was 100% without disturbing the Function of the component!

If you need to activate, simply pass OnClickCheck to MultiSelect to remove Nil .     

No, the checklistbox has already been developed so that more than one record is selected.

If you need to work with this component and want only one record to be selected, you can perform a validation as follows

total := 0;
for i := 0 to CheckListBox1.Items.Count - 1 do
    begin

       if CheckListBox1.Checked[i] then    // se o registro estiver marcado...
          inc(total);

    end;

if total > 1 then
   ShowMessage('Atenção somente 1 registro pode ser selecionado.');