如何使DBGrid支持拉动滑动块的同时滚动表格中的数据？

chenxi_aji 2003-09-12 05:08:45

还有两个问题：
怎么支持鼠标滚轮在DBGrid中使用？使用滚轮只能在一页中滚动，能不能让它超出这个范围？
还有，怎么调节DBGrid中选中记录的字体颜色，要选中的记录，就是默认背景是蓝字是白色的那种？我需要把白色改掉。
谢谢各位高手

...全文

28 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

sy_315 2003-09-13

打赏
举报

回复

dbgrid.dataset.next
dbgrid.dataset.prior

chenxi_aji 2003-09-13

打赏
举报

回复

DataSetNext、DataSetPrior是哪里的属性啊？
难道DBGrid不能直接实现这样的功能嘛？

czzw 2003-09-12

打赏
举报

回复

用devexpress的grid

newsofter 2003-09-12

打赏
举报

回复

创建标准Action连接好DataSource
DataSetNext 快捷键shortcut=down
DataSetPrior 快捷键shortcut=up
这样你的滚轴就可以用了

ndujun 2003-09-12

打赏
举报

回复

用DBGridEh比较好。

打印DBGrid表格里的数据

Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。　　begin 　　 if TStringGrid(DBGrid1).RowCount>0 then 　　 begin 　　 //创建一个word对象　　 wordApp:=CreateOleObject('Word.Application'); 　　 wordApp.Visible:=true; 　　 //创建一个word文档　　 wordDoc:=wordApp.Documents.Add(); 　　 wordDoc.Select; 　　 wrdSelection:=wordApp.selection; 　　 //创建一个表格　　 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0); 　　 for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体　　 begin 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName); 　　 end; 　　 DBGrid1.DataSource.DataSet.First; //当前行为首行　　 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据　　 begin 　　 for i:=1 to DBGrid1.FieldCount do 　　 wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue); 　　 DBGrid1.DataSource.DataSet.Next; //下一行　　 end; 　　 end 　　 else 　　 showmessage('TDBGrid表中无数据，不能向Word中插入表格。') 　　end;

Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些软件中经常会遇到，具体编写思路请下载源码研究。

TrueDBGrid7数据表格控件加破解

1.鼠标的滚轮支持,即可以直接支持鼠标上下滚动 2.向上滚轮事件（自定义事件） 3.向下滚轮事件（自定义事件）经本人实测可用，网上找的不是差这个就是差那个，本人综合了一下

数据库相关

2,497

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章