让鼠标点击哪里就出来右键的菜单--可以获取鼠标的位置,同时左击代替右击显示出来右键菜单

 

=======================

procedure TfrmImportCsvExcel.Button7Click(Sender: TObject);
begin
  TopSourceToTargetFieldName_pb.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;