100分相送

Question

如何在窗体上执行右击鼠标事件.

Answer 1

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbRight then
    showmessage('KAO,是右键');
end;

Answer 2

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbRight then
  showmessage('ok!');
end;

Answer 3

可在OnMouseUp或者OnMouseDown事件里面判断，用Button参数 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
  if button=mbright then showmessage('您单击了右键!')
end;

Answer 4

哇噻，来晚了，分儿，别走~！
if button=mbRight then
……

Answer 5

有onmouseup,onmousedown事件啊。。

Answer 6

呵呵也来晚了-----------------------------------------------------
大家有空到这里看看：www.nxrs.net

Answer 7

study and try it :)

Answer 8

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbRight then
    showmessage('是右键！还有分吗？呵呵');
end;

Answer 9

来晚了
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbRight then
  showmessage('单击了鼠标右键!');
end;