使用 DBGrid 用滑鼠單擊(Mouse Click)實作多選(MultiSelect)功能

bestlong

當寫資料庫程式面臨要處理單據拋轉功能時，需要用到多選(MultiSelect)的功能。可以使用 DBGrid 來處理，不過需要配合鍵盤按鍵組合 Ctrl + Mouse clicks 或 Shift + Arrow keys 來處理多選，對希望用滑鼠操作的就要加工處理一下。

在 Form 中加入一個 DBGrid 元件，設定 Option 的 dgMultiSelect 設為 Treu 並調整好位置後加入下列程式：

1. type
   
2.   TDBGrid = class(DBGrids.TDBGrid)
   
3.   protected
   
4.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
   
5.   end;
   
6. 
   
7. implementation
   
8. 
   
9. procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   
10. begin
    
11.   inClude(Shift, ssCtrl);
    
12.   inherited MouseDown(Button, Shift, X, Y);
    
13. end;

複製代碼