怎样使SQL的光标不出现(50分)

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #1

如题,在进行数据库操作时,如何把SQL的光标关掉?

 

S

Schiesser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #2

sql不是可视控件呀。没明白！

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #3

不好意思,没说清楚,
我的意思是,在用delphi进行数据库操作时,
系统的光标会由一个箭头变成一个带有SQL字样的漏斗
形状,怎样使在数据库操作时,
光标不发生变化

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #4

说详细点呀！
试试设置：
ControlsDisabled属性。

 

S

Schiesser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #5

form.cursor := crArrow?

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #6

to schiesser:
这样不行,因为在进行数据库操作时,SQL的光标依然会出现
比如,table.open
在open的过程中,光标会被改成sql的形状,open操作结束后,
才能设置光标,
我现在需要这个光标根本不出现

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #7

抛弃BDE

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #8

太夸张了吧!!!

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #9

试试application.cursor。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #10

amo:是DisableControls吧。

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #11

我是指：TDataSet.ControlsDisabled
不过不行，
还有application没用cursor,刚才瞎说的;(
tqz说的是。
这个东西是dbe弄的，
不知还有什么办法没有。

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #12

或者可以试试把Cursor屏蔽掉，比如用ImageList作Cursor。没试过

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #13

这个问题哦知道。

替换Delphi的默认资源文件即可。
对于已编译过的Exe文件，都包含Delphi的默认资源，cursor号32762就是
SQL光标，沙漏加sql字，用资源编辑软件替换之即可。

也可以打开lib/Contents.res改一下32762,那就一劳永逸了。

 

R

rss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #14

打错文件名了，应为lib/controls.res

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #15

嘿嘿嘿嘿,Session.SQLHourGlass设为false即可 ---- cAkk傻笑着说.

 

H

hanson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #16

其实最简单的办法是将Sql状的光标替换掉，Delphi中它是一个系统的光标，索引
号是-17,简单的把他在主Form Create的时候替换掉就行了：
如：
//替换成标准的等待光标形状
Screen.Cursors[-17] := Screen.Cursors[-11];

//替换成空,清除它
Screen.Cursors[-17] := Screen.Cursors[0];

其实您可以任意制作一个光标将其替换掉，研究一下吧!

 

H

hanson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #17

对不起，刚才写错了一点：

//替换成空,清除它
Screen.Cursors[-17] := Screen.Cursors[-1];
^^^^^

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #18

cAkk高！我又土了一把

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-19

• #19

还是cakk说得对
不过要注意一定要在session.open之前设定

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-23

• #20

多人接受答案了。