HSPTV!掲示板

たとえばラジオボタンa,b
○A
○B
( OK )
とい項目を用意して「a」を選択するとOKボタンが選択できるようにしたい(bが選択もしくはどちらも選択されていない場合はOKは押せない)
のですが、どうもうまく来ません。

うまいやり方はありませんか？

黙ってうまくできないというソースを晒しなさい。

　ラジオボタンの制御は少し難しいのでそこだけです。
後は簡単だと思うけど、もし、できなかったら、
そのときはスクリプトを投稿してください。
http://hsp.tv/play/pforum.php?mode=pastwch&num=19011

#include "user32.as"

	button "a", *check
	hButton1 = objinfo(stat, 2)

	button "b", *check
	hButton2 = objinfo(stat, 2)
	
	sendmsg hButton1, $F4, $4
	sendmsg hButton2, $F4, $4
	
	sendmsg hButton1, $F1, 0
	sendmsg hButton2, $F1, 1

	


	objsize 100, 22

	button" OK ",*owari
	hbutton = objinfo(stat, 2)


	stop

*check

	sendmsg hButton1, $F0
	value = stat


	EnableWindow hbutton, value


stop

*owari
	end

こちらです。

こんな感じですか？

#include "user32.as"

	winobj "button" , "a" , 0 , $50020009 , 200,20
	winobj "button" , "b" , 0 , $50000009 , 200,20
	winobj "button" , "c" , 0 , $50000009 , 200,20

	pos ,ginfo_cy+10

	winobj "button" , "1" , 0 , $50020009 , 200,20
	winobj "button" , "2" , 0 , $50000009 , 200,20
	winobj "button" , "3" , 0 , $50000009 , 200,20
	winobj "button" , "4" , 0 , $50000009 , 200,20
	oncmd gosub *wndmsg_Command,0x111

	button "OK",*owari
		hbutton = objinfo_hwnd(stat)
	EnableWindow hbutton,0
	stop

*wndmsg_Command
	GetWindowLong lparam , 0xFFFFFFF0
	if stat&0x9 : EnableWindow hbutton,1
	return

*owari
	end

回答ありがとうございます。

上のプログラムで、たとえばaを選択したときにOKが選択可能でそれ以外を選択したときは、
選択不可能という風な感じはできないでしょうか？

たとえば、インストーラの使用許諾の項目のように

それでしたら、Button を使った方が便利な気がします。

#include "user32.as"
	#define GWL_STYLE	$FFFFFFF0

	button "A",*label_A
	SetWindowLong objinfo_hwnd(stat) , GWL_STYLE , $50020009
	
	button "B",*label_B
	SetWindowLong objinfo_hwnd(stat) , GWL_STYLE , $50000009
	
	button "OK",*owari
	hbutton = objinfo_hwnd(stat)
	EnableWindow hbutton,0
	stop

*label_A
	EnableWindow hbutton , 1
	stop
*label_B
	EnableWindow hbutton , 0
	stop
*owari
	end

もし　NO.36199　のスクリプトを使用したいのでしたら、
*wndmsg_Command
のラベルで lparam と "a"のウインドウハンドル
を比較する必要が有ります。

回答ありがとうございます！

まさに作りたかったものです。