botão mouse
Olá.. pessoal.
Só funciona o botão esquerdo.
Como faço para detectar o direito e o meio tb.
Os tradicionais eventos VK_BUTTON ESQ, DIR e MIDDLE não funcionam
Grato pela força
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar: THandle;
begin
// Se você quiser detectar o botão esquerdo do uso do mouse:
if GetAsyncKeyState (1) <> 0 then
begin
label1.Caption:=mouse esquerdo;
end;
end;
Só funciona o botão esquerdo.
Como faço para detectar o direito e o meio tb.
Os tradicionais eventos VK_BUTTON ESQ, DIR e MIDDLE não funcionam
Grato pela força
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar: THandle;
begin
// Se você quiser detectar o botão esquerdo do uso do mouse:
if GetAsyncKeyState (1) <> 0 then
begin
label1.Caption:=mouse esquerdo;
end;
end;
Alexandre
Curtidas 0
Respostas
Rafael Ribeiro
15/01/2012
Boa Tarde!
No evento OnMouseDown do form digite o seguinte código:
Abraços!
Rafael
No evento OnMouseDown do form digite o seguinte código:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbLeft:
begin
Canvas.Brush.Color := clRed;
Canvas.Rectangle(x-20,y-20,x+20,y+20) ; //DESENHARÁ UM RETANGULO VERMELHO
ShowMessage(Botão Esquerdo!);
end;
mbRight:
begin
Canvas.Brush.Color := clBlue;
Canvas.Rectangle(x-20,y-20,x+20,y+20) ; //DESENHARÁ UM RETANGULO AZUL
ShowMessage(Botão Direito!);
end;
mbMiddle:
begin
Canvas.Brush.Color := clBlack;
Canvas.Ellipse(x-20,y-20,x+20,y+20) ; //DESENHARÁ UMA ELIPSE PRETA
ShowMessage(Botão Meio!);
end;
end;
end;
Abraços!
Rafael
GOSTEI 0
Alexandre
15/01/2012
Obrigado pela dica Fael.
Funcionou correto.
Se precisar de algo em eletronica, só escrever
Abraços
Alexandre
Funcionou correto.
Se precisar de algo em eletronica, só escrever
Abraços
Alexandre
GOSTEI 0
Rafael Ribeiro
15/01/2012
Valeu! Que bom que deu certo!
GOSTEI 0