Карта сайтаСсылкиКонтакты

Как правильно использовать колесо мыши в TDBGrid

PDF Печать
Статьи

Колесо мыши ведет себя странно с DBGrid - этот код обработчика поможет решить эту проблему.

Просто перетащите компонент TApplicationEvents (на вкладке Additional палитры компонентов) на форму и обработайте его событие OnMessage:


procedure TForm1.ApplicationEvents1Message
    (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;

Примечание: Это исправляет поведение колесика мыши не только для DBGrid, но и для всех других компонентов списка (TListBox, TListView и т.д.).


 

Добавить комментарий


Защитный код
Обновить