全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1564
推到 Plurk!
推到 Facebook!

ListView 如何攔截 OnScroll 的event

 
straydog
一般會員


發表:3
回覆:2
積分:1
註冊:2006-08-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-01-15 12:03:36 IP:59.124.xxx.xxx 訂閱
各位網友好
我想在當 user 捲動ListView 的 Scroll bar 時 做一些事情,但是 ListView 沒有OnScroll 的event 可以偵測 , 請問有網友知道該如何偵測這件事情嗎?
謝謝告知


RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-01-15 12:46:44 IP:220.130.xxx.xxx 訂閱
請參考以下的範例程式碼自行修改:
// Unit1.h
class TForm1 : public TForm
{
__published: // IDE-managed Components
TListView *ListView3;
private: // User declarations
TWndMethod OldListView3WndProc;
void __fastcall NewListView3WndProc(TMessage &Message);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

// Unit1.cpp
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
OldListView3WndProc=ListView3->WindowProc;
ListView3->WindowProc=NewListView3WndProc;
}
void __fastcall TForm1::NewListView3WndProc(TMessage &Message)
{
OldListView3WndProc(Message);
if((Message.Msg==WM_VSCROLL) || (Message.Msg==WM_HSCROLL))
{
ShowMessage("SCROLL");
}
}

------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
straydog
一般會員


發表:3
回覆:2
積分:1
註冊:2006-08-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-01-15 15:16:51 IP:59.124.xxx.xxx 訂閱
謝謝   我知道該如何做了


系統時間:2024-05-04 2:08:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!