procedure TForm1.Button1Click(Sender: TObject); begin ShowCursor(False); // Hide cursor end; procedure TForm1.Button2Click(Sender: TObject); begin ShowCursor(True); // Show cursor end;
本文转自 OldHawk 博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/08/20/862677.html，如需转载请自行联系原作者