Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Het TCheckListBox component staat de eindgebruiker toe om 1 of meer items in een lijst aan te vinken, maar soms willen we dat de gebruiker slechts 1 item kan aan vinken.
Hierbij is de property "MultiSelect" misleidend omdat het om selectie gaat en niet om aan vinken.
Met een simpel stukje code kunnen we er voor zorgen dat de selectie van een enkel item eenvoudig te bereiken is.
Link de code aan het "OnItemClick" event:
procedure TfmSelectFile.MijnCheckListBoxItemClick(Sender: TObject; Index: integer);
var
Counter : integer;
MijnCheckListBox : TCheckListBox; // je kunt ook de naam van jouw component gebruiken
begin
MijnCheckListBox:=TCheckListBox(Sender);
for Counter:= 0 to MijnCheckListBox.Items.Count-1 do
begin
if (Counter<>Index) then
MijnCheckListBox.Checked[Counter]:= false;
end;
end;
Deze procedure zet alle items op niet aangevinkt, met uitzondering van het item dat overeenkomt met Index.
