Карта сайтаСсылкиКонтакты

Выбор пункта 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;

 

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


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