有个列子在:
C:\Program Files\VFP9\Samples\Solution\Toledo\systray_sample.scx
我把类文件复制到E盘,我自己建立1个表单,只做到了显示图标,右键/左键,都没反应..
谁有个简单的列子,有下面的功能就可以了..
1.显示图标,thisform.Systray1.IconFile
2.显示提示,thisform.Systray1.TipText
3.点左键,出左键菜单
4.点右键,出右键菜单
5.就我这文件,我发现,我表单最大化后,图标点左键/右键,都没反应,但不是最大化的时候,好像有反应.能出菜单,但菜单却不是在图标那里出来.感觉,最大化后,点图标时,焦点好像离开了程序.
6.如果使用系统的IDE主窗口,也就是 config.fpw写上screen=on,激活IDE窗口后,再点托盘的图标,最大化,也能左键,出菜单....

那位,做过的,帮忙改改..表单用顶层表单,screen=off

*我只做到...
lcFile="E:\我的托盘\wygl.ico"
IF !ISBLANK(m.lcFile) AND FILE(m.lcFile)
    thisform.Systray1.IconFile = m.lcFile
    thisform.Icon = m.lcFile
ENDIF
thisform.Systray1.TipText="我的托盘"

我用myfll.dll来做托盘,
在顶层表单中调用,能点出菜单.
但好像有点问题.问题在下面,吹斑竹说用这个类,我就去看了,但却发现上面的问题...
https://bbs.bccn.net/thread-462828-1-1.html

顶一下，有做过的来。

刚测试了1下，基本上可以。
但也还是有个问题，就是，如果我把你的这个Image Capture对应的表单调整最大化，然后调出这个表单，然后，就点不出这个托盘了。

简化 4楼后的 系统托盘

前提是，表单，不能最大化，
这个我在上面都提到了。。

[此贴子已经被作者于2016-3-28 11:15编辑过]

终于，吹斑竹出手了。
吹斑竹的，好像最大化，也能点菜单。

[此贴子已经被作者于2016-3-28 13:57编辑过]

吹斑竹
1、鼠标不选择，点其它地方时，怎么把 菜单去掉
2、你现在是鼠标右键，怎么加1个鼠标左键？

好像不行，我是说，在显示表单时，只要表单最大化后，在托盘那里，就再也点不出菜单了。

*我想把左右鼠标分开菜单，好像有问题，不知道怎么搞，我这样第1次左的化，以后显示都是左。。第1次是右，以后显示都是右
PROCEDURE myNotifyEvent(hWnd, wMsg, wParam, lParam)
        SetForegroundWindow(hWnd)           && 设置前台窗口，这样点击其他地方时弹出菜单会自动消失。
        IF BETWEEN(lparam, 0x201, 0x204)    && 左点击或右点击
            IF lparam==0x204
               MESSAGEBOX("右")
               IF this.hMenu == 0
                  this.hMenu = CreatePopupMenu()
                  AppendMenu(this.hMenu, 0, 0x101, "显示窗口-右")
                  AppendMenu(this.hMenu, 0, 0x102, "隐藏窗口-右")
                  AppendMenu(this.hMenu, 0, 0x103, "关闭窗口-右")
                  AppendMenu(this.hMenu, 0, 0x104, "自己家的-右")
               ENDIF
            ELSE
               MESSAGEBOX("左")
               IF this.hMenu == 0
                  this.hMenu = CreatePopupMenu()
                  AppendMenu(this.hMenu, 0, 0x201, "显示窗口-左")
                  AppendMenu(this.hMenu, 0, 0x202, "隐藏窗口-左")
                  AppendMenu(this.hMenu, 0, 0x203, "关闭窗口-左")
                  AppendMenu(this.hMenu, 0, 0x204, "自己家的-左")
               ENDIF
            ENDIF
            
            LOCAL stPOINT, nX, nY
            stPOINT = REPLICATE(0h00, 8)
            GetCursorPos(@stPOINT)
            nX = CTOBIN(LEFT(stPOINT, 4), "4RS")
            nY = CTOBIN(RIGHT(stPOINT, 4), "4RS")   
            TrackPopupMenu(this.hMenu, 2, nX, nY, 0, hWnd, 0)
        ENDIF
    ENDPROC