Mostrar e Esconder o Cursor do Mouse na Sua Aplicação

[DragonBoss 8]

Falaa galera...

tava afim de postar algo.. entao resolvi fazer algo aki...

tava lendo sobre como usar o ShowCursor, ae me surgiu a ideia de fazer uma funçao ke esconda / mostre o cursor do mouse ( a seta do mouse, na sua aplicaçao ), nao sei se o meu codigo é o melhor a ser usado, mas é muito parecido com um que achei na internet.

Entao...Vamos la:

 

Primeiro, declare a funçao abaixo:

function MostrarMouse(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;

 

Para declarar uma função, simplesmente cole este codigo abaixo do implementation do programa ( fica abaixo das variaveis, no inicio do codigo ).

 

Depois disso, usaremos os 2 codigos que ira ativar/desativar a funçao ( se a funçao tiver desativada, ele esconde o mouse.. se tiver ativada, ele mostra o mouse.

 

Para Desativar a funçao:

MostrarMouse(false);

 

Para Ativar:

MostrarMouse(true);

 

Entao.. aonde vamos usar esses codigos?

No evento OnCreate do Form, coloke o código para desativar a funçao (o primeiro, ke dexa a funçao em false )... e no OnClick do form, colocaremos o segundo codigo ( ke vai voltar a funçao pra True )...

 

Assim: quando o programa for aberto, a seta do mouse nao vai aparecer na area do programa =], mas quando vc clikar no Form do programa (mesmo sem estar vendo a seta), ela vai voltar a aparecer.

 

O exemplo de onde usar o codigo (no OnCreate e Onclick) foi apenas uma forma de eu mostrar como ele pode ser utilizado e o efeito dele...

O uso fica a criterio de vcs ^^

 

Ahhh... explikando a funçao... usei uma funçao Boolean, pra poder deixar em true ou em false (ativado ou desativado) o ShowCursor no form, assim, posso mostrar ou esconde o Cursor na aplicaçao. É bem simples, mas resolvi explikar...

 

Espero que tenham gostado da dica, pode parecer um pouco inutil, mas pode ser usado em certos programas =]..depende da imaginaçao e necessidade de voces ^^

 

flw, abraçs

[josue1602 0]

Muito Bom.

Da Para a Pessoa Tmb Por No Evento OnKeyDown Da Form Para Que Quanto Aperte Um Tecla Ative e Quanto Aperto Outra Desative Exemplo:

Ative A Propriedade KeyPreview Da Form

 

Adicione O Code No Evento OnKeyDown Da Form:

IF KEY = VK_F7 THEN

MostrarMouse(false);

IF KEY = VK_F8 THEN

MostrarMouse(true);

 

F7 Esconde e F8 Mostra

 

Assim Fica Bem Legal Tmb