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

ScrollBox裡的滾動條使用方法

答題得分者是:taishyang
sunweb
一般會員


發表:11
回覆:9
積分:4
註冊:2006-07-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-05-21 17:01:13 IP:60.249.xxx.xxx 訂閱
想請教各位前輩:
ScrollBox裡的垂直和水平滾動條,有類似ScrollBar的OnChanged的事件嗎?只要我的滾動條一移動就觸發事件
找了許久仍未找到,請知道的前輩能不吝指教..謝謝...
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-05-21 17:32:58 IP:122.124.xxx.xxx 未訂閱
試試下面的code

<textarea class="cpp" rows="10" cols="60" name="code"> //.h class TForm1 : public TForm { __published: // IDE-managed Components TScrollBox *ScrollBox1; TImage *Image1; void __fastcall FormCreate(TObject *Sender); private: // User declarations TWndMethod OldScrollBoxWndProc; void __fastcall ScrollBoxWndProc(TMessage& Message); public: // User declarations __fastcall TForm1(TComponent* Owner); }; //.cpp //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { OldScrollBoxWndProc = ScrollBox1->WindowProc; ScrollBox1->WindowProc = ScrollBoxWndProc; } //--------------------------------------------------------------------------- void __fastcall TForm1::ScrollBoxWndProc(TMessage& Message) { switch (Message.Msg) { case WM_VSCROLL: { //int nScrollCode = (int) HIWORD(Message.WParam); //Form1->Caption = "V:" IntToStr(nScrollCode); //do something } break; case WM_HSCROLL: { //do something } break; } OldScrollBoxWndProc(Message); } </textarea>
sunweb
一般會員


發表:11
回覆:9
積分:4
註冊:2006-07-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-05-21 22:23:46 IP:218.170.xxx.xxx 訂閱
  感謝版大的教導可以使用了,謝謝...
沒想到還有這樣的做法阿!真是受教了...
編輯記錄
sunweb 重新編輯於 2007-05-21 23:35:25, 註解 無‧
系統時間:2024-05-06 15:43:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!