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 := ;

        FOldNo := ;

        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;