请问如何得到当前系统菜单的宽度？？？

回复人： zswang(伴水)(网络无限自由) (  ) 信誉：139  2002-7-11 9:54:52  得分:90  

 //呵呵～～～错！下面代码测试通过，具体的含义你自己看看吧

procedure TForm1.N1Click(Sender: TObject);

var

 vRect: TRect;

begin

 GetMenuItemRect(Handle, PopupMenu1.Handle, TMenuItem(Sender).MenuIndex, vRect);

 Caption := Format('%d,%d', [vRect.Left, vRect.Right]);

end;