Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OnMouseMove по ScrollBar y ListBox a. [D5, NT4, Win2k]


Дельфятник ©   (2002-05-28 13:00:00) 

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


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

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


Игорь Шевченко   (2002-05-28 14:30:00) [2]

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


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

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


KilkennyCat   (2002-05-28 13:12:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо