怎样让DBGrid在按住Shift点鼠标的同时能将连续范围的多行选中？
参见例子：…privateSel : Boolean ;//判断是否处于选择状态
BookMark : TBookMark ;//记录先前的位置…procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var SelNo:integer ;//记录当前位置beginif ( Button = mbLeft ) then
if sel = false then//非选择状态，记录当前位置beginBookMark := Table1.GetBookmark ;
Sel := true ;exit ;endelse //选择状态
if Shift = [ssShift] thenbegin//遍历所有从先前位置开始到当前位置之间的记录并标记
SelNo := DBGrid1.DataSource.DataSet.RecNo ;
DBGrid1.DataSource.DataSet.DisableControls ;
DBGrid1.DataSource.DataSet.GotoBookmark(BookMark);
DBGrid1.SelectedRows.CurrentRowSelected := true ;
if SelNo<DBGrid1.DataSource.DataSet.RecNo then
while SelNo<DBGrid1.DataSource.DataSet.RecNo dobeginDBGrid1.SelectedRows.CurrentRowSelected := true ;
DBGrid1.DataSource.DataSet.Prior ;endelsewhile SelNo DBGrid1.DataSource.DataSet.RecNo dobeginDBGrid1.SelectedRows.CurrentRowSelected := true ;
Sel := false ;end ;end;虽然效果不十分理想，但足以完成要求。
最新文章
- idea 插件的使用 进阶篇
- Steve Loughran:Why not raid 0,its about time and snowflakes!!!
- WebPack 简明学习教程
- linux系统man命令用法和安装方法
- 在Sharepoint 2010中启用Session功能的说明文档
- WCF 内存入口检查失败
- linux驱动程序之电源管理之linux的电源管理架构（3）
- MSSQL查询所有数据库表，指定数据库的字段、索引
- （转） [老老实实学WCF] 第三篇 在IIS中寄存服务
- CLR via C# - Char_String - Format
- Android 源代码结构（转）
- webpack 3.X学习之JS压缩与打包HTML文件
- docker with flannel
- SpringMVC_第一个程序
- Mpg123源代码详解
- 在阿里云服务器windows server2012r iis上部署.net网站
- Cannot read property 'validate' of undefined
- vim编辑器的命令总结
- 验证码 kaptcha 参数详解
- shell 获取脚本的绝对路径