How to change the state of daws in CheckListBox by clicking on the text?

you can manually set a flag when clicking into the text by manually processing the click event in the listbox. For example:

procedure TForm1.CheckListBox1Click(Sender: TObject); var p : TPoint; idx : integer; begin p := CheckListBox1.ScreenToClient(Mouse.CursorPos); idx := CheckListBox1.ItemAtPos( p, true); if idx >= 0 then begin CheckListBox1.Checked[idx] := not CheckListBox1.Checked[idx]; if(assigned(CheckListBox1.OnClickCheck)) then begin CheckListBox1.OnClickCheck(sender); end; end; end;