請問DBGrid如何可以做到滑鼠滾輪滾動其捲軸也會上下捲的功能嗎？我試過好像只能在DBGrid目前的頁面內移動，！‧‧‧煩請各位前輩解答，感激不盡‧‧

...maker the mouse wheel works correct in TDBGrid?     Author: A D'Cruze  Category: VCL {....} public procedure AppMessage(var Msg: TMsg; var Handled: Boolean); {....} procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; begin {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out} if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end; // Und im Projekt Source: // And in the project source: {....} Application.OnMessage := Form1.AppMessage; {....} printed from www.swissdelphicenter.ch developers knowledge base

bluetree999 :感謝你的回應~雖然我是學C++,但是還是有一點懂Delphi的語法,你的做法是在用滑鼠的事件去達成的...所以..我用了C++ 試了一下... 以下是我的CODE: h.檔 //---------------------------------------------------------------------------    #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include  #include #include #include <Forms.hpp> #include #include #include #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TDBGrid *DBGrid1; TTable *Table1; TDataSource *DataSource1; void __fastcall FormCreate(TObject *Sender); private: // User declarations TWndMethod oldDBGridProc; void __fastcall DBGridWndProc(Messages::TMessage &Message); public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif cpp.檔 //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; void __fastcall TForm1::DBGridWndProc(Messages::TMessage &Message) { short int Delta; if ( Message.Msg == WM_MOUSEWHEEL ) { Delta = Message.WParamHi; if ( Delta < 0 ) Table1->Next(); if ( Delta > 0 ) Table1->Prior(); } else oldDBGridProc(Message); } //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { oldDBGridProc = DBGrid1->WindowProc; DBGrid1->WindowProc=DBGridWndProc; } //--------------------------------------------------------------------------- 以上只供参考 還是再次感謝bluetree999 < >< >