Delphi]讓Windows捲軸捲動時，資料內容同時跟著平滑捲動。

讓Windows捲軸捲動時，資料內容同時跟著平滑捲動。

出處：

http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=100386

http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=70761


  TDBGrid = Class(DBGrids.TDBGrid)
  Protected
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;
 
  TForm1 = class(TForm)
    ....
  ...
procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
  if Message.ScrollCode = SB_THUMBTRACK then
    Message.ScrollCode := SB_THUMBPOSITION;
  inherited;
end;

轉貼至:https://fireflybug.pixnet.net/blog/post/51053914-[delphi]讓windows捲軸捲動時，資料內容同時跟著