HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0516
窓口オブジェクト上のマウスカーソル2解決


窓口

リンク

2009/5/16(Sat) 02:03:14|NO.25162

オブジェクトの上にマウスカーソルがあることを検出する方法はありますか?



この記事に返信する


hspail

リンク

2009/5/16(Sat) 02:37:08|NO.25163

winAPI の WindowFromPoint でカーソルの下にあるウィンドウハンドルを取得できるので、
あらかじめ調べておいたオブジェクトのウィンドウハンドルと比較して判定。


#include "user32.as" input num hInput = objinfo_hwnd(stat) repeat pt = ginfo_mx, ginfo_my WindowFromPoint pt.0, pt.1 if (stat == hInput) : title "オブジェクトの上にカーソルがあります。" : else : title "" wait 1 loop



窓口

リンク

2009/5/16(Sat) 07:40:43|NO.25165

ありがとうございます、解決しました。
こんな感じで使ってみます。


#include "user32.as" #define WM_SETCURSOR $00000020 #define oncmd_wait(%1) oncmd 0 : wait %1 : oncmd 1 #define oncmd_await(%1) oncmd 0 : await %1 : oncmd 1 input num hInput = objinfo_hwnd(stat) oncmd gosub *ss , WM_SETCURSOR stop *ss pt = ginfo_mx, ginfo_my WindowFromPoint pt(0), pt(1) if (stat == hInput) : title "オブジェクトの上にカーソルがあります。" : else : title "" oncmd_wait 15 return



ONION software Copyright 1997-2023(c) All rights reserved.