DBGridでマウスホイールを使ってもスクロールしません。(D6)
そこで、マウスホイールに対応するDBGridコンポを作成しました。

  新規作成でコンポーネントを選択し、上位クラスをTDBGrid  [DBGrids]を指定。

  下記を追加し新しいコンポを作成。例ではDBGridSCと設定
------------------------------------------------------------------
  private
    { Private 宣言 }
    procedure CMMouseWheel(var Unused: TCMMouseWheel); message 
    CM_MOUSEWHEEL;

　------省略-----

procedure TDBGridSC.CMMouseWheel(var Unused: TCMMouseWheel);
var Delta: integer;
begin
  Delta := Unused.WheelDelta;
  if 0 < Delta then begin
    Keybd_Event(VK_UP  , 0, 0, 0);
    Keybd_Event(VK_UP  , 0, KEYEVENTF_KEYUP, 0);
  end else begin
    Keybd_Event(VK_DOWN, 0, 0, 0);
    Keybd_Event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
  end;
  Unused.Result := 1;
end;

------------------------------------------------------------------

　この方法はスペース西さんに教えてもらいました。感謝

            おざなり  qyr01252@nifty.ne.jp    02/01/10(木) 14:01

 


Original document by おざなり        氏 ID:(QYR01252)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。