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


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0724
Cheesehamburg7273マウスカーソルの変更2未解決


Cheesehamburg7273

リンク

2016/7/24(Sun) 14:58:18|NO.76323

マウスカーソルの変更をしたいです。
http://lhsp.s206.xrea.com/hsp_mouse.html
このページでマウスカーソルの変更を見つけたんですけどオブジェクトの上ではなぜか
通常のカーソルに戻ってしまいます
対処法を教えていただけないでしょうか

#include "user32.as" dialog "cur;*.ani", 16, "カーソルファイル" if stat = 0 : stop LoadCursorFromFile refstr SetClassLong hwnd, -12, stat



この記事に返信する


暇人

リンク

2016/7/25(Mon) 18:44:20|NO.76344

ボタン等もウィンドウなので
個別に設定が必要
ボタン用のカーソルが設定できる
ウィンドウハンドルは objinfo(id,2) で取得



gou

リンク

2016/7/26(Tue) 01:55:44|NO.76347

個別に変更するのは面倒です。
SetCousorを使えばいいです

#define WM_SETCURSOR $00000020 #define HTCLIENT $00000001 #include "user32.as" dialog "cur;*.ani", 16, "カーソルファイル" if stat = 0 : stop LoadCursorFromFile refstr hCursor=stat oncmd gosub *OnSetCousor,WM_SETCURSOR objsize 640,200 button "exit",*exit stop *OnSetCousor if (lparam&0xffff)==HTCLIENT{ SetCursor hCursor return 1 } return *exit end



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