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

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

ScrollBar [D6, WinXP]


Vik_mix ©   (2004-03-05 11:56:00) 

Как в ListBox-е прокрутить ScrollBar в конец ?
Нужно посылать сообщение EM_SCROLLCARET ???
Если да , то как правильно его послать?


Diamond Cat   (2004-03-09 15:29:00) [1]

GetScrollInfo,
SetScrollInfo,
WM_VSCROLL,
WM_MOUSEWHEEL,
за работоспособность примера не отвечаю, пишу сходу
var
sc:Tscrollinfo;
begin
sc.cbSize:=sizeof(Tscrollinfo);
sc.fMask:=SIF_ALL;
  sendmessage(хэндл листбокса,WM_VSCROLL,1,0);
   GetScrollInfo(хэндл листбокса,SB_vert,sc);
 if sc.nTrackPos<=0 then
  sendmessage(хэндл листбокса,WM_MOUSEWHEEL,makewparam(0,word(-WHEEL_DELTA)),makelparam(1,1));

скорей всего достаточно просто WM_VSCROLL, а еще можно просто послать сочетание клавишь CTRL+PGDOWN, кстати , а каретка должна перемещаться? или достаточно просто прокрутить список


Наверх

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