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;

 


注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
© 2014-2019 ITdaan.com 粤ICP备14056181号