Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=26)
-   -   ¿Cómo ocultar el cursor en Windows? (https://www.clubdelphi.com/foros/showthread.php?t=45232)

dec 26-06-2007 22:33:15

¿Cómo ocultar el cursor en Windows?
 
Hola,

He contestado hoy mismo en este Hilo algo que voy a atreverme a plantear aquí, puesto que "necesito" (no es caso de vida o muerte) lo que luego diré para una aplicación y no he conseguido dar con la copla, luego de probar cuanto he encontrado (no demasiado) y buscar en Internet por un rato largo.

El caso es que con la función "ShowCursor" del API de Windows podemos ocultar el cursor en nuestra aplicación. Este API cuenta también con la función "ClipCursor", que sirve para confinar el cursor en una determinada ventana. Esta última función es la que usa Zarko Gajic en Hiding the cursor from the screen, para supuestamente lograr lo que pretendo.

Se trata de ocultar el cursor en "todo Windows", es decir, en todas las aplicaciones, y no sólo en la nuestra (usando la función "ShowCursor", como queda dicho). El caso es que el procedimiento de Zarko Gajic no funciona (cosa rara, por otro lado, en lo que este hombre escribe), al menos no funciona en Windows XP.

Y no sé porqué... puesto que la "teoría" parece correcta. Y eso no es todo. Luego de comprobar que este procedimiento no va como se espera, he buscado por Internet por un rato largo y no he dado sino con referencias a al procedimiento de Zarko Gajic y a la función "ClipCursor"... y no he encontrado nada que me sirva, ni en Microsoft ni en ningún lado...

Así que recurro a vosotros, como no podía ser de otro modo. ¿Alguien sabe cómo puede ocultarse el cursor en todas las aplicaciones de Windows? Por supuesto de modo que luego pudiera volverse a mostrar el cursor... no se trata de dejar al usuario sin ratón porque puede enfadarse. :eek:

Espero vuestras respuestas, sugerencias o comentarios. Muchas gracias de antemano como siempre. :)

gabrielkc 03-07-2007 02:06:42

No he tenido tiempo de checarlo pero aqui tienes otro truco de Zarco:

http://delphi.about.com/od/windowssh.../mousehook.htm


con un Hook al Mouse, no creo que puedas "ocultar" el cursor, pero puedes ponerlo por siempre en una posición que no se pueda ver

dec 03-07-2007 04:36:02

Hola,

Gracias por responder Gabriel. Es posible que funcione. Ahora no puedo probarlo pero, si me encuentro en la necesidad de nuevo no dudes que lo haré: no se me habría ocurrido. Muchas gracias. :)

enecumene 18-06-2008 19:31:52

Aunque el hilo es viejito, pero por si acaso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowCursor(False);  // Ocultar cursor 
end;
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowCursor(True);  // Mostrar cursor 
end;

Saludos.

Edito: Ah joder por no leer bien veo que ya habias visto la función.


La franja horaria es GMT +2. Ahora son las 13:28:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi