此处如何得到popMenu选中的项目的Tag;

Alice

将Sender as 为TMenuItem，然后取其Tag属性进行Case即可。示例代码大概如下：
procedure TMainForm.actLocateExecute(Sender: TObject);
var
  lMenuItem: TMenuItem;
begin
  lMenuItem := Sender as TMenuItem;
  case lMenuItem.Tag of
     0: ;//do somthing
     1: ;//do somthing
     2: ;//do somthing
    ......
  end;
end;