1
Sharing with Delphi Peers!
After several searches, the only option was to implement the event OnClickCheck
component, 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;
Was 100% without disturbing the functioning of the component!
If you need to activate just go to the event OnClickCheck
to proceed MultiSelect
, to remove pass Nil
.
Utilize Tradiogroup
– EProgrammerNotFound
@Eprogrammernotfound then friend. I need to use this damned. I’m going to do some tests with the ID...
– Junior Moreira