记账软件版1楼: 学习中……
有个动态创建的Label1有个PopupMenu，
procedure TForm1.Button1Click(Sender: TObject);
var
Label1:Tlabel;
begin
label1:=Tlabel.Create(self);
label1.Parent:=Form1;
label1.Top:=200;
label1.Left:=200;
label1.Caption:=＇＇getLabelName＇＇;
label1.PopupMenu:=PopupMenu1;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
// 获取Label的name
//？？？？？
//
end;

2楼: 抬起来！ 如免费财务软件

3楼: 右键菜单有个 PopupComponent 属性,用它吧
如果连右键菜单也不能直接确定,用Sender吧

4楼: 在procedure TForm1.N1Click(Sender: TObject); 中sender是popupmenu
不能指到label上啊， PopupComponent 属性里也没有可以指到label的选项啊

5楼: 有没有人知道阿？虽然比较菜，还望赐教

6楼: 要给label一个name，比如label1.Name := ＇＇L1＇＇;
就可以用
procedure TForm1.N1Click(Sender: TObject);
begin
showmessage(PopupMenu1.PopupComponent.Name);

end;

记账软件版7楼: 多人接受答案了。