掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
二つのTStringGridの縦スクロール連動 (ID:148429)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
回答ありがとうございます。 回答の方を参考に以下のようなコードでマウスホイールでの動作は実現できました。 procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin StringGrid1.Perform(WM_VSCROLL, SB_LINEDOWN, 0); StringGrid2.Perform(WM_VSCROLL, SB_LINEDOWN, 0); Handled := True; end; procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin StringGrid1.Perform(WM_VSCROLL, SB_LINEUP, 0); StringGrid1.Perform(WM_VSCROLL, SB_LINEUP, 0); Handled := True; end; スクロールバーを直接操作の場合でも同じ動きにすることは可能でしょうか？ もし、方法をご存じならご教授お願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.