delphi中判断popupmenu的弹出来源....

正在用delphi xe编写一个小程序。。。

界面上有十几个label，想通过右键点击弹出popupmenu，修改label的颜色

因此，需要判断popupmenu的来源...

 

上网搜索了半天，发现了解决办法:

 

定义:

    pm1:Tpopupmenu;

 

判断:

 showmessage(pm1.PopUpComponent.name);