Delphi实现点击按钮触发选择项， 进而实现不同的分支功能

1.实现按钮右击事件触发选择项

添加一个TPopupMenu控件，设置按钮的PopupMenu属性为新增的TPopupMenu控件，即可完成右击出现选择项。

2.实现按钮左击事件触发选择项

添加一个TPopupMenu控件pm3，在按钮的Click事件中如下代码，即可完成左击出现选择项。
procedure TfrmMain.rzbtbtn3Click(Sender: TObject);
var
  lppoint: Tpoint;
begin
   GetCursorPos(lppoint);
   pm3.Popup(lppoint.x, lppoint.y);
end;

3.实现按钮左击事件触发选择项（进阶：代码实现添加TPopupMenu控件及选择项）

添加一个TPopupMenu控件pm3，在按钮的Click事件中如下代码，即可完成左击出现选择项。