Show/hide mouse cursor

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  ShowCursor(False);  // Hide cursor 

end; 

procedure TForm1.Button2Click(Sender: TObject); 

  ShowCursor(True);  // Show cursor 

end;

<b>    本文转自 OldHawk  博客园博客，原文链接：</b><b>http://www.cnblogs.com/taobataoma/archive/2007/08/20/862677.html</b><b>，如需转载请自行联系原作者 </b>