Подсветить элемент списка по движению мышки

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Подсветить элемент списка по движению мышки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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