HSPTV!掲示板

フォーカスのあるオブジェクトIDの取得をしたいのですがボタンが押されると取得できません。
ボタンのIDになってしまうのですがどなたか解決策をお願いします。

input a
input b
input c
button gosub "objid",*objid

*idle 
	objsel -1
	st=stat
	wait 10    ;ここでbutton受付　のはず？
	title ""+st;オブジェクトID表示OK
goto *idle


*objid
	title ""+st;オブジェクトID表示NG・・・何で？
	return

なんでってそれは、ボタンにもオブジェクトを使用しているためで、
擬似ボタン的な手法で回避しました

	input a
	input b
	input c
	color 192, 192, 192
	boxf 0, 100, 80, 130
	color 0, 0, 0
	pos 1, 101
	mes "ObjId"

*idle
	onclick gosub *clk
	title ""+mousex+"/"+mousey
	objsel -1
	st=stat
	wait 10    ;ここでbutton受付　のはず？
	title ""+st;オブジェクトID表示OK
	goto *idle

*clk
	if (mousex>=0) and (mousex<=80) and (mousey>=100) and (mousey<=130):gosub *objid
	return

*objid
	dialog ""+st;オブジェクトID表示NG・・・何で？
	return

↑(余計なコメントをそのままにしてしまったorz)

> wait 10 ;ここでbutton受付　のはず？
buttonが押されてwait通過でフォーカスが移り
離された時に指定されたラベルに飛ぶ

input a
input b
input c
button gosub "objid",*objid

*idle 
	a++
	objsel -1
	st=stat
	wait 10   ;ここでbutton受付　のはず？
	title ""+st+" "+a
goto *idle


*objid
	title ""+st;オブジェクトID表示NG・・・何で？
	return

押されてる時も常にループされてる事が分かる

できました。
buttonが押された瞬間にstatが変化しwaitで割り込むと考えればいいのかな？
ヒントありがとうございました。

input a
input b
input c
button gosub "objid",*objid

*idle 
	objsel -1
	if stat != 3 :st=stat
	wait 10    ;ここでbutton受付　のはず？
	title "loop内で表示 objid="+st;オブジェクトID表示OK
goto *idle


*objid
	title "buttonで表示 objid="+st;オブジェクトID表示今度はOK
	wait 100
	return

解決チェック忘れ