Desabilitar botão contrário do mouse

Question

Turma tenho uma aplicação q tem o fundo de todos os forms um swf...

Qdo clico com o bt auxilar ele mostra aquele menu do flash..

Como desabilito o bt contrário do mouse para que ele nunca funcione em minha aplicação?

Faelcavalcanti · Answer

Tenta tipow um evento [b:507b130a06]MouseDown [/b:507b130a06]o comando [b:507b130a06]Abort[/b:507b130a06]. Não testei se funciona!!!...

Zenner · Answer

Não sei se rola não pq assim eu perco tb o bt normal do mouse.. Quero desabilitar somente o bt contrário...

Faelcavalcanti · Answer

[quote:55de1aff43=´Zenner´]Não sei se rola não pq assim eu perco tb o bt normal do mouse.. Quero desabilitar somente o bt contrário[/quote:55de1aff43]Tenta assim :[code:1:55de1aff43]procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  case Button of    mbLeft  : ShowMessage(´Botão Esquerdo´);    mbRight : ShowMessage(´Botão Direito´);    mbMiddle: ShowMessage(´Botão do Meio´);  end;end;[/code:1:55de1aff43]Coloquei no evento do clique de um TButton no Evento OnMouseDown, você poderá fazê-lo da mesma forma, apenas seguir conforme o seu caso específico. Espero ter ajudado....

Faelcavalcanti · Answer

Caso tu queiras simular um clique do botão tu poderás fazer de um [b:20b1e57727]tuto[/b:20b1e57727] que eu achei. Veja abaixo:

O exemplo abaixo simula o pressionamento da tecla do botão esquerdo do mouse em uma determinada posição da tela. No exemplo serão utilizados dois botões (Button1 e Button2), ao clicar no Button2 será executado o onClick do Button1 como se o mouse tivesse clicado sobre ele.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Clique do Botão 1´);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  Pt : TPoint;
begin
  Application.ProcessMessages;
  //Obtém o point no centro do Button1 
  Pt.x := Button1.Left + (Button1.Width div 2);
  Pt.y := Button1.Top + (Button1.Height div 2);
  //Converte Pt para as coordenadas da tela  
  Pt := ClientToScreen(Pt);
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  //Move o mouse
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  //Simula o pressionamento do botão esquerdo do mouse} 
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  //Simula soltando o botão esquerdo do mouse } 
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

O interessante é que você pode fazer isto por detraiz dos panos sem o usuário sequer imaginar. Huhauhauahuahauhau. :lol: :lol: :lol:

Rômulo Barros · Answer

:arrow: [color=darkblue:c5aec62dde][b:c5aec62dde]Veja, [url=http://forum.clubedelphi.net/viewtopic.php?t=32644&highlight=desabilitar+bot¬E3o+direito]NESTE LINK[/url], como desabilitar o botão direito do mouse em em arquivos .swf utilizados com o component TShockwaveFlash (Version 1.0 )[/b:c5aec62dde][/color:c5aec62dde]

_____________________________________________
[b:c5aec62dde][color=blue:c5aec62dde]Utilize a Ferramenta de Pesquisa do Fórum[/color:c5aec62dde][/b:c5aec62dde]

Pesquisar pelos termos
_____________________________________________
[b:c5aec62dde]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:c5aec62dde]
[b:c5aec62dde]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:c5aec62dde]
[b:c5aec62dde]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:c5aec62dde]

Zenner · Answer

Muito obrigado.. Funcionou.. Em parte...

Meu problema agora é como fazer co q esse có seja verificado independente do componente que eu clique.. Tipo.. Tenho um componente activex do tipo TShockwaveflash e ele não tem a propriedade onmousedown...

Como faria para que minha aplicação verificasse me desse essas mesmas msg mesmo clicando em cima de um componente desses..De forma q o bt contrário eu cancelaria e o normal ele deixaria passar?

Faelcavalcanti · Answer

:shock:  :shock:  :shock: Por essa eu não esperava taí, com apenas três linhas o cara resolveu tudo!!!!! E eu pensava que ia dar mais trabalho. Putz!!!...

Zenner · Answer

Realmente essa resposta matou.. Tudo q eu precisava foi resolvido!!  Valeu mesmo turma!...

Rômulo Barros · Answer

[quote:d8cff72e6b=´faelcavalcanti´]:shock:  :shock:  :shock: Por essa eu não esperava taí, com apenas três linhas o cara resolveu tudo!!!!! E eu pensava que ia dar mais trabalho. Putz!!![/quote:d8cff72e6b] :wink:  :wink:  :wink:  é..._____________________________________________[b:d8cff72e6b][color=blue:d8cff72e6b]Utilize a Ferramenta de Pesquisa do Fórum[/color:d8cff72e6b][/b:d8cff72e6b]Pesquisar pelos termos_____________________________________________[b:d8cff72e6b]Veja como[url=//forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:d8cff72e6b][b:d8cff72e6b]Veja as novas [url=//forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:d8cff72e6b][b:d8cff72e6b]Leia sempre as [url=//forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:d8cff72e6b]...

Fórum Desabilitar botão contrário do mouse #272782