DELPHI 解决DBGrid SHIFT键多选问题

在实际项目中，偶然遇到需要按下SHIFT键，在DBGrid中进行多选的情况，测试了几种方法，最终确定了一个比较好的解决方法，总结如下：

procedure TTestFrame.TestDBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin //实现 Shift+鼠标左键单击 多选
  if Button = mbLeft then
  begin
    if not FblSelect then
    begin
      FBookMark :=  TDBGrid(Sender).DataSource.DataSet.GetBookMark;
      FOldNo :=  TDBGrid(Sender).DataSource.DataSet.RecNo;
      FblSelect := True;
      Exit;
    end
    else
    begin
      if ssShift in Shift then
      begin
        FCurrNo :=  TDBGrid(Sender).DataSource.DataSet.RecNo;
         TDBGrid(Sender).DataSource.DataSet.DisableControls;
         TDBGrid(Sender).DataSource.DataSet.GotoBookmark(FBookMark);
         TDBGrid(Sender).SelectedRows.CurrentRowSelected := True;
        if FCurrNo > FOldNo then
        begin
          while FCurrNo >  TDBGrid(Sender).DataSource.DataSet.RecNo do
          begin
            TDBGrid(Sender).SelectedRows.CurrentRowSelected := True;
             TDBGrid(Sender).DataSource.DataSet.Next;
          end;
        end
        else
        begin
          while FCurrNo <  TDBGrid(Sender).DataSource.DataSet.RecNo do
          begin
            TDBGrid(Sender).SelectedRows.CurrentRowSelected := True;
             TDBGrid(Sender).DataSource.DataSet.Prior;
          end;
        end;
         TDBGrid(Sender).DataSource.DataSet.EnableControls;
         TDBGrid(Sender).DataSource.DataSet.FreeBookmark(FBookMark);
        FblSelect := False;
        FCurrNo := 0;
        FOldNo := 0;
        TDBGrid(Sender).Invalidate;
      end
      else
      begin
        FBookMark := TDBGrid(Sender).DataSource.DataSet.GetBookMark;
        FOldNo := TDBGrid(Sender).DataSource.DataSet.RecNo;
        FblSelect := True;
        Exit;
      end;
    end;
  end;
end;