Botão direito do mouse

Delphi

03/12/2007

Boa tarde pessoal.
Alguem aí sabe como faço pra saber quando se clica
com o botão direito do mouse num painel.
Preciso criar um evento quando executar essa ação.
Desde ja agradeço a ajuda,

Osvaldo


Osvaldo

Osvaldo

Curtidas 0

Respostas

Itepi

Itepi

03/12/2007

no evento OnMouseActive ou OnMouseDown você escreve o comando :

  
if Button = mbRight then
begin
    [i]instrução[/i]
end;



GOSTEI 0
N_informatica

N_informatica

03/12/2007

Meu caro fiz algo bem parecido só que no evento OnMouseDown de uma DBGrid e ele nem executa nem passa pelo OnMouseDown.

Preciso de ajuda.

procedure TfrmCota.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pt : TPoint;

begin
GetCursorPos(Pt);
if (Sender = DbGrid1) and (Button = mbRight) then
PopupMenu1.Popup(Pt.X+15, Pt.Y+10);
end;


GOSTEI 0
POSTAR