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 :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

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!

Hi,
einfach Screen.Cursor := crNone setzen. Dann ist der Mauszeiger weg. Mit Screen.Cursor := crDefault setzt du ihn auf den Standardwert zurück.

André