DELPHI右击事件

  if button=mbRight then
    messagebox(handle,'这是右击左键','Test',mb_ok);

if True then
    messagebox(handle,'测试成功','Test',mb_ok);