当用户点击了“查询”按纽后，如何将鼠标变成漏斗形状，从而使得用户不可以再点击？

Question

当查询结果出来后，又将鼠标变成正常的形状，使鼠标变为可用状态。请高手指点，谢谢。

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  BitBtn1.Cursor := crHourGlass;
  BitBtn1.Enabled := False;
  try
    sleep(2000);
  finally
    BitBtn1.Enabled := True;
    BitBtn1.Cursor := crDefault;
  end;
end;

Answer 2

非常感谢chenzhuo(睡到自然醒) !!