「◆タスクトレイポップアップメニュー」の編集履歴(バックアップ)一覧はこちら
「◆タスクトレイポップアップメニュー」(2010/08/17 (火) 17:48:04) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
*情報
作者名:SWinX
引用元:[[なでしこ質問掲示板「タスクトレイでポップアップメニュー」>http://www.himanavi.net/cgi/nade-bbs2/cbbs.cgi?mode=al2&number=3600&no=0&KLOG=1]]
*概要
タスクトレイのイベントでポップアップメニューを表示させます。
*解説
ひまわりでmokaさんが作成なさった「タスクトレイでメニュー」
http://www.isonly.net/~yuk_yt/himawari/pr/1165.html
をなでしこ移植しました。
*サンプルプログラム
//ここから
'タスクトレイでメニュー
●母艦設計
母艦の可視はオフ
■POINT
・X
・Y
!POINT_TYPEとは文字列="DWORD,DWORD"
●GetCursorPos({参照渡し}p)=DLL("USER32.DLL",
"INT GetCursorPos(
char* pPoint)")
●GetMenu(hWnd)=DLL("USER32.DLL",
"DWORD GetMenu(DWORD hWnd)")
●GetSubMenu(hMenu,I)=DLL("USER32.DLL",
"DWORD GetSubMenu(
DWORD hWnd,
DWORD Index)")
●TrackPopupMenu(hMenu,f,x,y,r,hWnd,p)=DLL("USER32.DLL",
"Int TrackPopupMenu(
Int hMenu,
Int wFlags,
Int x,
Int y,
Int nReserved,
Int hWnd,
Int lPrc)")
「なし,M親,ダミー
M親,M子1,出す,,,母艦復活
M親,M線1,-
M親,M子2,終わる,,,終わり」をメニュー一括作成
GetMenu(母艦ハンドル)
メニューハンドル=GetSubMenu(それ,0)
M親の可視はオフ
母艦をタスクトレイ入れる
母艦のタスクトレイ右クリックした時は~
Sとは文字列
Sに8を確保
GetCursorPos(S)
UNPACK(S,POINT,POINT_TYPE)
TrackPopupMenu(メニューハンドル,2,POINT.X,POINT.Y,0,母艦ハンドル,0)
待機。
●母艦復活
母艦をタスクトレイ出す
母艦の可視はオン
----
- 動作に不具合が合ったので修正してみました。http://nade.jp-pro.net/bbs/bbs2/cbbs.cgi?mode=al2&namber=1152&rev=&no=0 -- 戒斗 (2010-08-17 17:44:03)
#comment()
----
*情報
作者名:SWinX
引用元:[[なでしこ質問掲示板「タスクトレイでポップアップメニュー」>http://www.himanavi.net/cgi/nade-bbs2/cbbs.cgi?mode=al2&number=3600&no=0&KLOG=1]]
*概要
タスクトレイのイベントでポップアップメニューを表示させます。
*解説
ひまわりでmokaさんが作成なさった「タスクトレイでメニュー」
http://www.isonly.net/~yuk_yt/himawari/pr/1165.html
をなでしこ移植しました。
*サンプルプログラム
//ここから
'タスクトレイでメニュー
●母艦設計
母艦の可視はオフ
■POINT
・X
・Y
!POINT_TYPEとは文字列="DWORD,DWORD"
●GetCursorPos({参照渡し}p)=DLL("USER32.DLL",
"INT GetCursorPos(
char* pPoint)")
●GetMenu(hWnd)=DLL("USER32.DLL",
"DWORD GetMenu(DWORD hWnd)")
●GetSubMenu(hMenu,I)=DLL("USER32.DLL",
"DWORD GetSubMenu(
DWORD hWnd,
DWORD Index)")
●TrackPopupMenu(hMenu,f,x,y,r,hWnd,p)=DLL("USER32.DLL",
"Int TrackPopupMenu(
Int hMenu,
Int wFlags,
Int x,
Int y,
Int nReserved,
Int hWnd,
Int lPrc)")
「なし,M親,ダミー
M親,M子1,出す,,,母艦復活
M親,M線1,-
M親,M子2,終わる,,,終わり」をメニュー一括作成
GetMenu(母艦ハンドル)
メニューハンドル=GetSubMenu(それ,0)
M親の可視はオフ
母艦をタスクトレイ入れる
母艦のタスクトレイ右クリックした時は~
Sとは文字列
Sに8を確保
GetCursorPos(S)
UNPACK(S,POINT,POINT_TYPE)
TrackPopupMenu(メニューハンドル,2,POINT.X,POINT.Y,0,母艦ハンドル,0)
待機。
●母艦復活
母艦をタスクトレイ出す
母艦の可視はオン
----
- 動作に不具合が合ったので修正してみました。http://nade.jp-pro.net/bbs/bbs2/cbbs.cgi?mode=al2&namber=1152&rev=&no=0 -- 戒斗 (2010-08-17 17:44:03)
- メニューがクリックしてからでないと消えない不具合の修正です。 -- 戒斗 (2010-08-17 17:48:04)
#comment()
----