HSPTV!掲示板

マウスカーソルの変更をしたいです。
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

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

個別に変更するのは面倒です。
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