Show/hide mouse cursor

Posted on 2007-08-20 14:15 OldHawk 阅读(548) 评论(0) 编辑收藏举报

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False); // Hide cursor
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True); // Show cursor
end;