掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のリストボックスのスクロールをスムーズに連動するには？ (ID：4457)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょっと裏技的ですが、こんな方法もあります。 procedure TForm1.ScrollBar1Change(Sender: TObject); var Value: integer; begin Value := ScrollBar1.Position; // 描画の禁止 ListBox1.Perform(WM_SETREDRAW, 0, 0); ListBox2.Perform(WM_SETREDRAW, 0, 0); ListBox3.Perform(WM_SETREDRAW, 0, 0); SendMessage(ListBox1.Handle, LB_SETTOPINDEX, Value, 0); SendMessage(ListBox2.Handle, LB_SETTOPINDEX, Value, 0); SendMessage(ListBox3.Handle, LB_SETTOPINDEX, Value, 0); // 描画の許可(まだ描画しない) ListBox3.Perform(WM_SETREDRAW, 1, 0); ListBox2.Perform(WM_SETREDRAW, 1, 0); ListBox1.Perform(WM_SETREDRAW, 1, 0); // 再描画 ListBox3.Invalidate; ListBox2.Invalidate; ListBox1.Invalidate; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.