关于光标形状的VERY VERY EASY的问题(10分)

S

sweetychild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #1

我使用form1.cursor:=-11;来改变用户点击按钮后光标的形状，奇怪的是当我用一个空按钮
放在FORM上时点击它按钮会改变成我想要的漏斗状，而将同一条语句放在同一个窗体的另外一个
一个按钮事件中begin
之后（单步跟踪也执行到了这条语句），光标却始终没有改变形状，两个按钮的
区别只是在于后一个按钮的事件比较多，可是我是在过程一开始就执行了它呀，为什么还会这样呢？？？

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #2

begin
form1.cursor:=-11;
Application.ProcessMessages;
//马上响应 form1.Cursor := -11 的事件！
//Others
end;

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #3

>后一个按钮的事件比较多
后面事件是什么，有可能会影响光标的

 

S

sweetychild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #4

后面的时间是从COBOBOX1框中取数据并判断、创建数据表等
to wcwcw：试过了不可以也

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #5

begin
form1.cursor:=-11;
update;
Application.ProcessMessages;
//马上响应 form1.Cursor := -11 的事件！
//Others
end;

 

吉

吉祥鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #6

screen.Cursor :=-11;
给分吧，以后还要补哦

 

S

sweetychild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #7

荷塘新月我试过了，不可以也

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #8

不用－11呢？
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.cursor:=crHourGlass;
form1.cursor:=crHourGlass;
end;

形状恢复再用其他的控制

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #9

screen.cursor := crHourglass;
try
...//一大串长时间操作
finally
screen.cursor := crdefault;
end;

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #10

贴代码！
你的其他控件的属性设置有没有问题？

 

S

sweetychild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #11

吉祥鸟的办法有用，谢谢大家

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #12

[]
用screnn 学习了！

 

S

sweetychild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #13

多人接受答案了。