Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c