cursor ausblenden

Sebozwei

Grünschnabel
Hi Leute hab folgende Frage:
wie kann ich den Mauscursor für den ganzen Bildschirm ausblenden? Mit screen.cursor := -1 wird der cursor ja nur ium Bereich des formulars ausgeblendet
 
ich würd sagen so:

Code:
procedure TForm1.Button1Click(Sender: TObject);

   function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
   { Devuelve true si la funcion _funcname esta disponible en la DLL _dllname.
    Si es asi, almacena en _p la direccion de la función.}

   var _lib: tHandle;

   begin
     Result := false;
     _p := NIL;
     if LoadLibrary(PChar(_dllname)) = 0 then exit;
     _lib := GetModuleHandle(PChar(_dllname));
     if _lib <> 0 then
       begin
         _p := GetProcAddress(_lib, PChar(_funcname));
         if _p <> NIL then Result := true;
       end;
   end;


var
   xBlockInput : function(Block: BOOL): BOOL; stdcall;

begin
   if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) = true then
     begin
       {Bloquear entradas/Disable input}
       xBlockInput(true);
       sleep(4000);
       {Desbloquear/Enable}
       xBlockInput(false);
     end;
end;


gruß

delphi-netzwerk.de
 
em der mauszeiger muss sich schon noch bewegen können bzw auf die signale der maus reagieren - er darf nur nicht sichtbar sein!
 
Zuletzt bearbeitet:
Hi,
einfach Screen.Cursor := crNone setzen. Dann ist der Mauszeiger weg. Mit Screen.Cursor := crDefault setzt du ihn auf den Standardwert zurück.

André
 
Zurück