Delphi如何通过IContextMenu实现循环操作,形成长尾?