DBGridで縦スクロールバーで移動したとき、
スクロールバーがとまった時点でカーソルが移動します。
スクロールバーを移動してるとき、
同時にＧＲＩＤ内のデータを移動させるには、
どうしたらよいでしょうか？
Delphi7です。
どなたか解決方法をお願い致します
自己レスですが、
StruingGridのoptions にgoThumbTrackingというプロパティがあることがわかりました。
DbGridには、ありませんでした。
DbGridでは WMVScrollをSB_THUMBPOSITIONに変えればいいことまでわかりました。
messageの書き方がよくわからりませんが、
ネットを参考にして、書いてみました。
type
TDBGrid = class(DBGrids.TDBGrid)
private
procedure WmVScroll(var Message: TWMScroll); Message WM_VSCROLL;
end;
procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
with Message do
if ScrollCode = SB_THUMBTRACK then
ScrollCode := SB_THUMBPOSITION;
inherited;
end;
です。
一応、動作するようになりましたが、
はたして、あっているものなのでしょうか。
どなたか、みていただけますか。
よろしく、お願いいたします。
解決しました。
この方法で、いきたいと思います。
間違っているところがありましたら、ご指摘お願いいたします。
質問することがあるかもしれませんが、その時は、またよろしくお願いいたします。