請教各位大大 今天被同事問到說我某支程式裡DBGrid 能不能使用Shift Mouse-click選取一個區段的Record 我回來找了半天,沒發現DBGrid有這樣的選項 只有Multiselect的選項,但是只支援Ctrl Mouse-click 一個個的選取 不知道有那位先進知道該怎麼作嗎?? 謝謝

DBGrid支援鍵盤的按Shift多選（Shift+向上向下鍵），但不支援滑鼠，可重載DBGrid的MouseDown過程加上這項功能，參照它原來的KeyDown過程，大致實現(MultiSelect項還是要設的)：

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;    var
  iRow: Integer;    if (ssShift in Shift) and (dgMultiSelect in Options) then 
begin
  iRow := MouseCoord(X,Y).Y;//根據滑鼠位置取得點擊行
  if iRow > Row then 
  begin
    //這邊加一個迴圈，從Row到iRow
    DataSet.MoveBy(1);//移到下一條記錄
    SelectedRows.CurrentRowSelected := True;//選擇當前記錄
  end
  else
  begin
    DataSet.MoveBy(-1);//移到上一條記錄
    SelectedRows.CurrentRowSelected := True;
  end;
end;

還是有點麻煩吧，所以我自己比較傾向將就著用鍵盤了 發表人 - Rain 於 2003/08/04 18:06:59