[Delphi]讓Windows捲軸捲動時，資料內容同時跟著平滑捲動。 @ No Money No Honey

Apr 12 Mon 2010 19:07
[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;