WalkingAway

Thank you. Yes I intend to use dmAutomatic (as I need to move items inside that listbox), but (also) I don't want such behaviour after OnClickMethod. I think this code begin ShowMessage('Bla bla'); ListBox1.EndDrag(False); end; cover all my needs, at least so far I see what I intend top see. Let's see what happens when I implement actual drag/drop functionality. Thank you.

So, after that ( if Listbox1.DragMode = dmAutomatic ): procedure TForm6.ListBox1Click(Sender: TObject); begin ShowMessage('Bla bla'); end; you can see what happens. Thank you.