Mouse

Delphi

24/03/2008

Bom dia galera,
Gostaria da Ajuda de vcs delphianos. Será que alguem conhece o código que manipula o mouse por exemplo quero executar uma ação quando o usuário clicar 2x pressionando SHIFT é possivel fazer isso em delphi?

Agradeço antecipadamente a atenção.


Luiz Mota

Luiz Mota

Curtidas 0

Respostas

Ar_melgarejo

Ar_melgarejo

24/03/2008

[color=darkblue:5464554d23][/color:5464554d23] Boa tarde Luiz,

Segue um pequeno e simples código de exemplo, espero que o auxilie.
Grande abraço.

Alexandre.


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
sMensagem: String;
begin
if ssDouble in Shift then // Acionado o Double Click do mouse
begin
sMensagem := ´Acionado Duplo Click´;
if ssShift in Shift then // O Shift está pressionado
sMensagem := sMensagem + #10 + ´Pressionado o Shift´;
if ssAlt in Shift then // O Alt está pressionado
sMensagem := sMensagem + 10 + ´Pressionado o Alt´;
if ssCtrl in Shift then // O Ctrl está pressionado
sMensagem := sMensagem + 10 + ´Pressionado o Ctrl´;
ShowMessage(sMensagem);
end;
end;


GOSTEI 0
POSTAR