請問在 DBGrid 中如何使滑鼠的滾輪能換頁 ? ( 請給 BCB 提示 ) |
|
答題得分者是：ccchen
|
|
8866
中階會員   發表：27 回覆：147 積分：69 註冊：2002-10-14 發送簡訊給我 |
|
|
QOO10
初階會員 發表：59 回覆：89 積分：29 註冊：2002-12-25 發送簡訊給我 |
|
|
8866
中階會員 發表：27 回覆：147 積分：69 註冊：2002-10-14 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
class TForm1 : public TForm
{
__published: // IDE-managed Components
TTable *Table1;
TDBGrid *DBGrid1;
TDataSource *DataSource1;
private: // User declarations
public: // User declarations
TWndMethod oldDBGridProc;
__fastcall TForm1(TComponent* Owner);
void __fastcall DBGridWndProc(Messages::TMessage &Message);
}; __fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
oldDBGridProc = DBGrid1->WindowProc;
DBGrid1->WindowProc=DBGridWndProc;
Table1->Open();
}
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);
}
|
|
8866
中階會員 發表：27 回覆：147 積分：69 註冊：2002-10-14 發送簡訊給我 |
發表時間：2003-02-19 14:34:48
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-04-25 23:14:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |