讓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;

No Money No Hone 發表在 痞客邦 PIXNET 留言(1) 人氣()


留言列表 (1)

發表留言