掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
二つのTStringGridの縦スクロール連動 (ID:148428)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TStringGridにマウスホイールイベントはないのでメッセージで処理 でも何か他に良い方法があるかと。 設計を見直してみては？ 参考URL https://www.petitmonte.com/bbs/answers?question_id=8885 xxx =class(TStringGrid) private procedure WMMousewheel(var Msg: TMessage); message WM_MOUSEWHEEL; procedure xxx.WMMousewheel(var Msg: TMessage); begin if (Msg.WParam > 0) then begin { ホイールを奥に動かした時の処理 } StringGrid1.Perform(WM_VSCROLL, SB_LINEDOWN, 0); StringGrid2.Perform(WM_VSCROLL, SB_LINEDOWN, 0); end else begin { ホイールを手前に動かした時の処理 } StringGrid1.Perform(WM_VSCROLL, SB_LINEUP, 0); StringGrid2.Perform(WM_VSCROLL, SB_LINEUP, 0); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.