目標: 想要將程式做出拋轉單據的功能, 所以要利用另一個 Form 來列出清單 然後讓使用者選擇需要的多筆紀錄, 但是多選都要配合按住 Ctrl 鍵. 使用者希望能只用滑鼠單擊或雙擊點選多筆紀錄. 問題: 本想用 DBGrid.OnMouseDown 事件來處理. 才發現 DBGrid 在有資料顯示的時候, 滑鼠點選資料的 Cell 都不會引發 OnMouseDown 事件, 只有在標題列會有引發. 而改用 OnClick 或 OnDblClick 來處理. 每點選一次先前所選的都 UnSelect 了. 請問要如何用標準元件 DBGrid 來達成單擊或雙擊來增加多選呢? 我是雪龍

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/

提供一個方法，利用程式模擬Ctrl 在DBGRID的OnCellClick加入 keybd_event(VK_CONTROL,29,KEYEVENTF_EXTENDEDKEY OR 0 ,0); //按住Ctrl 在DBGRID的OnExit加入 keybd_event(VK_RCONTROL,29,KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP ,0);//離開DBGRID時Ctrl按鍵放開 如果控制的好的話，應該可以達到你的需求

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

如您所願！..... 在 Type 加入以下程式碼 type TDBGrid = class(DBGrids.TDBGrid) protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer);Override; end; TForm1 = class(TForm) ..... ..... procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); begin inClude(Shift,ssCtrl); inherited MouseDown(Button,Shift,X, Y); end; 這樣就可以了。

唉...我是去改source code 加一個flag略過一些clearselection的動作    K.Top是我見過最棒的程式社群
如果沒有K.Top真不知道該怎麼活

引言: 如您所願！..... 在 Type 加入以下程式碼 type TDBGrid = class(DBGrids.TDBGrid) protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer);Override; end; TForm1 = class(TForm) ..... ..... procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); begin inClude(Shift,ssCtrl); inherited MouseDown(Button,Shift,X, Y); end; 這樣就可以了。

這是最快速簡單的處理方法了, 我還在想要是我直接更動了系統原始碼, 那麼就會導致所有的 DBGrid 全部都有同樣的特性. 在想改變的 Form 中, 加入此段 Code 該 Form 中的所有 DBGrid 才會受影響. 我是雪龍

引言: 唉...我是去改source code 加一個flag略過一些clearselection的動作 K.Top是我見過最棒的程式社群
如果沒有K.Top真不知道該怎麼活

錯誤示範, 千萬別學... /> 如果沒有