在操作数据库时如何把鼠标指针变成沙漏？

Question

在操作数据库时如何把鼠标指针变成沙漏？即在等待打开数据库时，给用户一个提示

Answer 1

当操作数据库时，可以将from.cursor设为漏斗状，完成后设返回来即可，我不知你是不是这个意思。

Answer 2

procedure Button1Click(Sender: TObjects);
var
  OldCursor: TCursor;
begin
  OldCursor := Screen.Cursor;
  Screen.Cursor := crGlasshand;//(这里改你要的指针)
  ……（其它操作）
  Screen.Cursor := OldCursor;
end;