Array
(
)

Travar Mouse

Bruno.barcellos
   - 14 fev 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.


Paullsoftware
   - 14 fev 2006

serve esconder ele?
#Código


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;