bestlong 怕失憶論壇

標題: 使用 DBGrid 用滑鼠單擊(Mouse Click)實作多選(MultiSelect)功能 [打印本頁]

作者: bestlong 時間: 2006-11-8 19:14 標題: 使用 DBGrid 用滑鼠單擊(Mouse Click)實作多選(MultiSelect)功能

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

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

type
TDBGrid = class(DBGrids.TDBGrid)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;
implementation
procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inClude(Shift, ssCtrl);
inherited MouseDown(Button, Shift, X, Y);
end;

複製代碼

歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)