得到窗体的unit单元名称解决方法

得到窗体的unit单元名称
窗体名称
 name :Frm_login

unit 为 frmlogin

self.name为窗体名,如何得到unit 名

如何得到frmlogin

------解决方案--------------------
unit 名是得不到的,那只是个标记,不会出现self.unit这个方法的,因为你一般写代码的时候都会知道自己代码所在的单元名
------解决方案--------------------
DelphiXE2 里,刚试了下可以的
Delphi(Pascal) code
ShowMessage(Self.UnitName);

------解决方案--------------------
Delphi2010也没问题,其它版本俺没有。也没办法试了
------解决方案--------------------
ShowMessage(Self.UnitName);

D7不行
------解决方案--------------------
似乎没什么大用吧