Ответ: listbox над каким элементов находится курсор
procedure Tform1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssright in shift then
listbox1.itemindex:=listbox1.ItemAtPos(Point(x,y), true);
end;
То, что мне было нужно. Тему можно закрывать. Спасибо.
|