Выбор пункта ListBox, когда мышь находится над ним

PDF Печать
Статьи

Есть простой способ, чтобы выбирать пункты ListBox, когда указатель мыши проходит над ними.

Нужно просто назначить следующий код в обработчик события OnMouseMove для компонента ListBox (ListBox1):


procedure TForm1.ListBox1MouseMove
   (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
begin
   ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True) ;
end;

 

Добавить комментарий


Защитный код
Обновить