スクリプトから表示することは可能ですか?
TTM_RELAYEVENTメッセージを使用すれば出来そうな気もしますが
TTM_RELAYEVENTメッセージの送り方すらうまくいっていない状態です。
一応TTM_RELAYEVENTを使用して試行錯誤したスクリプトを載せておきます。
#include "user32.as" #include "winmm.as" ; TOOLINFO.uFlags の定数 #define global TTF_ABSOLUTE $00000080 #define global TTF_CENTERTIP $00000002 #define global TTF_DI_SETITEM $00008000 #define global TTF_IDISHWND $00000001 #define global TTF_RTLREADING $00000004 #define global TTF_SUBCLASS $00000010 #define global TTF_TRACK $00000020 #define global TTF_TRANSPARENT $00000100 ; ウインドウメッセージ #define WM_MOUSEMOVE $00000200 ; ツールチップメッセージ #define TTM_ADDTOOL $00000404 #define TTM_RELAYEVENT $00000407 dim rect , 4 dim TOOLINFO, 11 winobj "tooltips_class32", "",0,0 hTooltip=objinfo_hwnd(stat) a=0 : input a hInput = objinfo_hwnd(stat) GetWindowRect hInput , varptr(rect) txt = "ツールチップ" TOOLINFO.0 = 40 // cbSize TOOLINFO.1 = 0 // uFlags TOOLINFO.2 = hInput // hwnd TOOLINFO.3 = 0 // uId TOOLINFO.4 = 0 // rect TOOLINFO.5 = 0 ; TOOLINFO.6 = rect.2 ; TOOLINFO.7 = rect.3 ; TOOLINFO.8 = 0 // hinst TOOLINFO.9 = varptr(txt)// lpszText ; ツールヒントコントロールを登録 sendmsg hTooltip , TTM_ADDTOOL , , varptr(TOOLINFO) oncmd gosub *msg_WM_MOUSEMOVE,WM_MOUSEMOVE stop *msg_WM_MOUSEMOVE GetMessageExtraInfo msgextrinfo = stat TimeGetTime time = stat ; MSG 構造体 #define ctype point(%1,%2) (%2<<16 | %1) msg = hwnd , WM_MOUSEMOVE , wparam , lparam , time , point(ginfo_mx , ginfo_my) ; ツールチップへTTM_RELAYEVENTを送る sendmsg hTooltip , TTM_RELAYEVENT , msgextrinfo , varptr(msg) return
どなたかよろしくお願いします。