请问怎么在托盘图标上实现弹出菜单？

我在托盘区域建立了一个图标，是用Shell_NotifyIcon函数来实现的，没有用TTrayIcon控件，因为我的程序没有窗体，控件放不上去。
我还想在这个图标上实现弹出菜单，可是因为没有窗口，TPopupMenu控件放不上去，请问该怎么办呢？

解决方案 »

  1.   


    追问一句：delphi中的控件确实丰富，可是这些控件都要放在窗体上才能用，如果程序里没有窗体，是不是这些控件都用不上了？
      

  2.   

    你做一个窗体，然后运行的时候sw_hide，也许有用
      

  3.   


    to gyk120：可是很多时候并不需要窗体，为了使用控件，而把窗体sw_hide，这样的窗体不是显得很累赘吗？而且也很浪费系统资源。
    大家有好的办法吗？
      

  4.   


    我想问，难道delphi中的控件真的只有放到窗口上才可以用吗？能不能直接使用控件对应的类来得到它的功能？比如直接在程序中用这样的代码：var
      TrayMenu1: TTrayMenu;TrayMenu1.Create;请这样问可以吗？可以的话，请给出一个例子吧？
      

  5.   

    没有窗体，你使用Shell_NotifyIcon函数能创建托盘图标吗？