Dear 大大: 我用動態新增一Scrollbox,但我要用到其OnMouseWheelDown之觸發事件,故我另外定義一函式SBNouseWheelDown(TObject *Sender,TShiftState,TPoint &MousePos,bool &Handle); 故我在使用時為下 TScrollBox *a; a->OnMouseWheelDown=SBNouseWheelDown(......) 裡面的參數我不知填入何值(意即我不瞭解參數的意義,雖然看了help) 請各位大大能指教我 謝謝

您好: 試試下面的程式碼

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

順心

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">

引言:我試過了,似乎無法觸發滑鼠滾輪,真不知何原因

您是怎麼試的呢?

其實我原本就是照你上面的作法去試,但因為都不成功,所以在這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元件都沒反應    

引言:

引言:我試過了,似乎無法觸發滑鼠滾輪,真不知何原因

您是怎麼試的呢?

您好: 您要讓Scrollbox出現ScrolBar才會有反應... 也就是Scrollbox裡的元件要超出Scrollbox的範圍    順心

當然有啊 我真不知為何不行    

引言: 您好: 您要讓Scrollbox出現ScrolBar才會有反應... 也就是Scrollbox裡的元件要超出Scrollbox的範圍 順心 < face="Verdana, Arial, Helvetica">

引言: 當然有啊 我真不知為何不行

光看這兩句怎麼知道問題在哪邊?< > 請把您的專案上傳讓前輩們幫您看看< > 會員求助程式檔案上傳區 http://delphi.ktop.com.tw/forum.asp?FORUM_ID=97

Dear taishyang : 我無法上傳 我貼於下 //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::ScrollBox1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled) { ScrollBox1->VertScrollBar->Position = WheelDelta; Edit1->Text=WheelDelta; } //--------------------------------------------------------------------------- 其他屬性都是預設

您好: 我把專案放到 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=78333 您再試試看吧