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

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

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

—

01.09.2016

coder

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

Комментарии