OnMouseMove по ScrollBar y ListBox a.

← →
Дельфятник (2002-05-28 13:00) [0]

Можно ли как-нибудь отловить то, что мышь съехала с области, где отображаются данные, и наехала на SсrollBar (у меня только вертикальный)?

← →
KilkennyCat © (2002-05-28 13:12) [1]

Легко.
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if y > ListBox1.Width - ListBox1.ScrollWidth then НАЕЗД! елзе ложная тревога;
end;

← →
Дельфятник (2002-05-28 14:24) [2]

В Delphi5 у компонента TListBox нет свойства ScrollWidth. Вы в 6-ом работаете? Кроме того, проблема состоит в том, что когда мышь наезжает на полосу прокрутки TListBox"a, то событие OnMouseMove перестаёт срабатывать в принципе.

← →
Игорь Шевченко © (2002-05-28 14:30) [3]

SetCapture/ReleaseCapture - тогда выезд мыши за клиентскую часть можно будет поймать.

← →
Дельфятник (2002-05-28 15:06) [4]

Большое спасибо!

OnMouseMove по ScrollBar y ListBox a. Найти похожие ветки