如何使用動態產生的VCL元件的觸發事件(僅止於ScrollBox) |
尚未結案
|
甘蔗夫
一般會員 發表:76 回覆:19 積分:19 註冊:2004-08-25 發送簡訊給我 |
Dear 大大:
我用動態新增一Scrollbox,但我要用到其OnMouseWheelDown之觸發事件,故我另外定義一函式SBNouseWheelDown(TObject *Sender,TShiftState,TPoint &MousePos,bool &Handle);
故我在使用時為下
TScrollBox *a;
a->OnMouseWheelDown=SBNouseWheelDown(......)
裡面的參數我不知填入何值(意即我不瞭解參數的意義,雖然看了help)
請各位大大能指教我
謝謝
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
您好:
試試下面的程式碼
.h檔中加入 public: // User declarations __fastcall TForm1(TComponent* Owner); void __fastcall sbxMouseWheelDown(TObject *Sender, TShiftState Shift, const TPoint &MousePos, bool &Handled); .cpp當中加入 void __fastcall TForm1::FormCreate(TObject *Sender) { TScrollBox *sbx = new TScrollBox(this); sbx->Parent = this; sbx->OnMouseWheelDown = sbxMouseWheelDown; } //--------------------------------------------------------------------------- void __fastcall TForm1::sbxMouseWheelDown(TObject *Sender, TShiftState Shift, const TPoint &MousePos, bool &Handled) { //do something } 最後要記得delete sbx;順心 |
甘蔗夫
一般會員 發表:76 回覆:19 積分:19 註冊:2004-08-25 發送簡訊給我 |
Dear taishyang:
我試過了,似乎無法觸發滑鼠滾輪,真不知何原因
引言: 您好: 試試下面的程式碼.h檔中加入 public: // User declarations __fastcall TForm1(TComponent* Owner); void __fastcall sbxMouseWheelDown(TObject *Sender, TShiftState Shift, const TPoint &MousePos, bool &Handled); .cpp當中加入 void __fastcall TForm1::FormCreate(TObject *Sender) { TScrollBox *sbx = new TScrollBox(this); sbx->Parent = this; sbx->OnMouseWheelDown = sbxMouseWheelDown; } //--------------------------------------------------------------------------- void __fastcall TForm1::sbxMouseWheelDown(TObject *Sender, TShiftState Shift, const TPoint &MousePos, bool &Handled) { //do something } 最後要記得delete sbx;順心 >>< face="Verdana, Arial, Helvetica"> |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
甘蔗夫
一般會員 發表:76 回覆:19 積分:19 註冊:2004-08-25 發送簡訊給我 |
其實我原本就是照你上面的作法去試,但因為都不成功,所以在這POST文章請教前輩,另外我也試過不是動態產生的SCROLLBOX,其OnMouseWheelDown事件為下: void __fastcall TForm3::ParentSBMouseWheel(TObject *Sender,
TShiftState Shift, int WheelDelta, TPoint &MousePos, bool
&Handled)
{
ParentSB->VertScrollBar->Position+=WheelDelta;
Edit1->Text="12";
} ********ParentSB是我拖曳出來的VCL元件****************
結果EDIT元件都沒反應
引言:引言:我試過了,似乎無法觸發滑鼠滾輪,真不知何原因您是怎麼試的呢? |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
甘蔗夫
一般會員 發表:76 回覆:19 積分:19 註冊:2004-08-25 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
引言: 當然有啊 我真不知為何不行光看這兩句怎麼知道問題在哪邊?< > 請把您的專案上傳讓前輩們幫您看看< > 會員求助程式檔案上傳區 http://delphi.ktop.com.tw/forum.asp?FORUM_ID=97 |
甘蔗夫
一般會員 發表:76 回覆:19 積分:19 註冊:2004-08-25 發送簡訊給我 |
Dear taishyang :
我無法上傳
我貼於下
//--------------------------------------------------------------------------- #include
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
您好:
我把專案放到
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=78333
您再試試看吧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |