DELPHI 解决DBGrid SHIFT键多选问题
发布时间:2020-12-15 09:55:10 所属栏目:大数据 来源:网络整理
导读:在实际项目中,偶然遇到需要按下SHIFT键,在DBGrid中进行多选的情况,测试了几种方法,最终确定了一个比较好的解决方法,总结如下: procedure TTestFrame.TestDBGridMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer); be
在实际项目中,偶然遇到需要按下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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |