Fórum Botão direito do mouse #349994
03/12/2007
0
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
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
Curtir tópico
+ 0
Responder
Posts
03/12/2007
Itepi
no evento OnMouseActive ou OnMouseDown você escreve o comando :
if Button = mbRight then
begin
[i]instrução[/i]
end;
Responder
Gostei + 0
12/09/2008
N_informatica
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)