Travar Mouse

14/02/2006

Fala Moçada do Delphi to precisnado de um help de vcs. eu queria saber como eu faço para travar totalmente o mouse durante uma determinada operação. agradeço as ajuda.


Bruno.barcellos

Respostas

14/02/2006

Paullsoftware

serve esconder ele?
    function MouseShowCursor(const Show: boolean): boolean;
        var
            I: integer;
    begin
            I := ShowCursor(LongBool(true));
            if Show then
              begin
                Result := I >= 0;
                while I < 0 do
                    begin
                        Result := ShowCursor(LongBool(true)) >= 0;
                        Inc(I);
                    end;
              end
            else
                begin
                    Result := I < 0;
                    while I >= 0 do
                        begin
                            Result := ShowCursor(LongBool(false)) < 0;
                            Dec(I);
                        end;
                end;
    end;



Responder Citar