procedure
TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False); // Hide cursor
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True); // Show cursor
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，如需转载请自行联系原作者
