L liu2909432 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #1 如何让cursor变成漏斗后，在漏斗的旁边出现提示信息？ 例如：显示“系统正在查询...”
B bigroute Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #2 Screen.cursor=n（我忘了，你自己试一下吧，） 然后做一个窗口 ，Show， 等查询完了，Close; Screen.cursor=crDefault;
S slb_anders Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-28 #3 设置Application 的属性： Hint HintColor HintHidePause HintPause HintShortCuts HintShortPause
B blackbook Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #4 Screen.cursor=crHourGlass 然后做一个窗口 ，Show， 等查询完了，Close; Screen.cursor=crDefault;
M myangel Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-08 #5 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin screen.Cursor:=crHourGlass; showmessage('系统正在查询...'); //查询中 screen.Cursor:=crDefault; end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin screen.Cursor:=crHourGlass; showmessage('系统正在查询...'); //查询中 screen.Cursor:=crDefault; end;
快 快乐的蚂蚁 Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-08 #6 在漏斗的旁边出现提示信息?这好像挺不好做的 如果是为要让光标变的话只要设screen.cursor等于某个常数,好像是1到18吧， 也可以自己定义光标
