如何去掉数据库检索时的出现的漏斗式光标

hh_yebing 2003-10-17 01:44:46
在对数据库进行数据检索时,delphi会自动将光标设置成漏斗型,实在是难看,请问大家如何去掉它
...全文
59 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
saien 2003-10-17
  • 打赏
  • 举报
回复
screen.cursor:=crDefault;
henry2003 2003-10-17
  • 打赏
  • 举报
回复
screen.cursor:=crDefault;
Shiyl 2003-10-17
  • 打赏
  • 举报
回复
在程序的project Source 中最开始写

screen.Cursors[-17]:=screen.Cursors[-19];
afei78223 2003-10-17
  • 打赏
  • 举报
回复
使用一个TSession控件,其SQLHourGlass属性设置为False(默认为True), 然后将TDataBase连接到这个Session控件
hh_yebing 2003-10-17
  • 打赏
  • 举报
回复
我试过,不是这么简单就行的,因为我想系统把它设成漏斗型是在DataSet控件内部设置,必须屏蔽调这样的设置才能达到目的,简单在如TQuery对象的open函数之前或者之后写screen.cursor:=crArrow这样的代码是不能达到这个目的的,不知我分析是否有理,请高手指点。
hnhb 2003-10-17
  • 打赏
  • 举报
回复
screen.cursor:=crArrow; //光标变成箭头样

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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