Delphi-Help

Главная Статьи Мышка и Курсор Использование колесика мыши в TListBox, TDBGrid

Использование колесика мыши в TListBox, TDBGrid

Оцените материал
(0 голосов)


По умолчанию при использовании колесика мыши в списках и таблицах перемещается бегунок ScrollBar. В случае, если необходимо, чтобы перемещение происходило по элементам списка (таблицы), используйте следующий код:

//В разделе Public укажите:

procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

//В разделе Implementation:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);

var

i: SmallInt;

begin

if Msg.message = WM_MOUSEWHEEL then

begin

Msg.message := WM_KEYDOWN;

Msg.lParam := 0;

i := HiWord(Msg.wParam);

if i > 0 then

Msg.wParam := VK_UP

else

Msg.wParam := VK_DOWN;

Handled := False;

end;

end;

// В файле проекта перед Application.Run запишите:

Application.OnMessage := Form1.AppMessage;

Прочитано 2379 раз

Авторизация



Счетчики