Não testei,
Veja se funciona.
function MouseShowCursor(const Show: boolean): boolean;
var
I: integer;
begin
I := ShowCursor(LongBool(true));
if Show then begin
{ ShowCursor(true) incrementa um contador interno do Windows.
Quando este contador ficar >= 0, então o cursor é exibido }
Result := I >= 0;
while I < 0 do begin
Result := ShowCursor(LongBool(true)) >= 0;
Inc(I);
end;
end else begin
{ ShowCursor(false) decrementa um contador interno do Windows.
Quando este contador ficar < 0, então o cursor é ocultado }
Result := I < 0;
while I >= 0 do begin
Result := ShowCursor(LongBool(false)) < 0;
Dec(I);
end;
end;
end;
--
Boa Leitura,
Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
Leonardo Baldino respondeu:
>
> alguem sabe como desabilitar o mouse para que o usuario naum utilize o
> mouse
> em um determinado formulario
>
> --
> Leonardo Carlos Baldino - The Highlander
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.138 / Virus Database: 270.6.0/1604 - Release Date: 11/8/2008
> 05:50
>
