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>