請教在TDBGrid中如何讓資料隨卷軸拉動而立即改變 |
|
答題得分者是：wameng
|
|
marklue
一般會員   發表：33 回覆：55 積分：17 註冊：2005-02-09 發送簡訊給我 |
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
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;
試試。 ～～～～～～～～～～～
難得聰明，常常糊塗。
～～～～～～～～～～～
|
|
marklue
一般會員 發表：33 回覆：55 積分：17 註冊：2005-02-09 發送簡訊給我 |
|
|
fireflybug
一般會員 發表：18 回覆：36 積分：15 註冊：2008-07-17 發送簡訊給我 |
|
|
careychen
尊榮會員  發表：41 回覆：580 積分：959 註冊：2004-03-03 發送簡訊給我 |
請注意，版主用的 Message 是 WM_VSCROLL ，如果您需要的話，可以自行再加上 WM_HSCROLL
===================引 用 fireflybug 文 章=================== 抱歉，試了一下，結果只有上下可以，但是左右的部份不行，如果連左右都可以，那就方便了。 以前要讓Grid有這功能，我都會使用xdGrid元件來解決此問題。
------
價值的展現，來自於你用哪一個角度來看待它!! |
|
fireflybug
一般會員 發表：18 回覆：36 積分：15 註冊：2008-07-17 發送簡訊給我 |
發表時間：2005-05-11 17:51:36
IP:203.73.xxx.xxx 未訂閱
系統時間：2024-11-21 23:39:16
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |