자료/소스

델파이 dbgrid 마우스휠버튼 이벤트


언어 : delphi
  1. procedure MouseWheelHandler(var Message: TMessage); override;
  2.  
  3. procedure TForm1.MouseWheelHandler(var Message: TMessage);
  4. begin
  5.   if Message.msg = WM_MOUSEWHEEL then
  6.   begin
  7.     if ((ActiveControl is TDBgrid) or
  8.       (ActiveControl is TwDataCombo)) then
  9.     begin
  10.       if Message.wParam > 0 then
  11.       begin
  12.         keybd_event(VK_UP, VK_UP, 0, 0);
  13.       end
  14.       else if Message.wParam < 0 then
  15.       begin
  16.         keybd_event(VK_DOWN, VK_DOWN, 0, 0);
  17.       end;
  18.     end;
  19.   end;
  20. end;

grid에서 마우스 휠버튼으로 위아래 이동이 가능하게 해준다.
top
Tag , ,


Posted at 2007/11/14 18:08 | 자료/소스 | Trackback(0) | Comment(0)
http://www.joon.pe.kr/blog/trackback/241

<< Prev   1   ... 102   103   104   105   106   107   108   109   110   ... 334   Next >>