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

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

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

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

定义:

    pm1:Tpopupmenu;

判断:

 showmessage(pm1.PopUpComponent.name);