在delphi中如何触发一个事件

Question

干嘛，Click事件是鼠标左键专用的，你把事件放到MouseDown下去吧，通过判断Button的值来触发，Button有三种值：mbLeft, mbRight和mbMiddle，当Button = mbRight时，证明按下的是右键。

Answer 1

在delphi中大部分对象都有一个popupmenu的属性，你可把一个popupmenu对象与其他对象连接起来，在程序运行时，可点击鼠标右键弹出弹出式菜单，但我现在点击鼠标右键事也达到同样的效果？不知该如何做？

Answer 2

直接调用，如要调用Click事件的代码就写: Form.OnClick(nil);
调用Show：  Form.Show(nil);
  

Answer 3

对于触发右键：YouForm.OnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer)其中的参数根据你的需要自己设置。

Answer 4

放一个Memo1和一个PopupMenu1，在Memo1的MouseDown事件中写入下面代码procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then begin
    PopupMenu1.Popup(X + Form1.Left + TMemo(Sender).Left, Y + Form1.Top + TMemo(Sender).Top);
  end;
end;