VFP 愛用者社區

[richshih]

我要產生systray的圖示然後滑鼠按會蹦出menu 我的程式 大概如下
oFOrm=createobject(form1)
Define Class form1 As Form
SHOWWINDOW=2
Procedure Init
THIS.AddObject('oMYsystray','systray')
Endproc
Enddefine
完成編譯成exe檔 如於有install VFP的電腦執行
用滑鼠按systray的ICON會有short_menu顯示, 可是如於無安裝VFP
但可執行VFP程式的電腦執行, 也會有systray的ICON 用滑鼠按systray的ICON則不會產生short_menu,差別到底在哪裡,ms vfp 的範例是有一個可見form我的ＦＯＲＭ是不可見且screen=off

[LiuRambo]

有點看不太懂

無安裝vfp的電腦 有附上vfp的dll嗎?

[richshih]

[yang1032]

看起來是
short_menu 未加入編譯
將short_menu放在目錄內試試

[richshih]

SAMPLE 有一段話如下 難到一定要有toplevel form (with .visible = .t.才會顯示嘛
可是幾乎系統圖示都無可見的WINDOWS FORM
* In order to display the shortcut menu in the proper location,
* we must activate it within a toplevel form (with .visible = .t.),
* near the taskbar.
* On WindowsME, Win2k and later, the form is made invisible by
* calling a Windows API function. (See the INIT of the form class.)
* But on Win98 and NT4, that API function didn't exist, so we make it
* a "Desktop" form instead. This allows us to remove the titlebar and
* make the form so small it won't be noticed. But it causes slightly
* incorrect behavior when trying to clear the menu.

[richshih]

謝謝已OK
不用form他自己會產生, 主要是要蹦出的SHORTCUT的MYSYSTRAY.MNX 須INCLUDE於exe且MYSYSTRAY.MPR 須於目錄中