HSPTV!掲示板

bgscrでウィンドウを作りました。
タイトルバーがないのでマウス左クリックで移動させたいのですが、
できません。
最初にスクリプトに書いたのが、

; ウィンドウを移動可能にする

#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2

;▼マウスドラッグによるウィンドウ移動
onclick *idou
stop
*idou
if wparam == 1 {
sendmsg hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0
}
stop
なんですが、これではhwndがgselで指定されたウィンドウのみに
なってしまうとどこかで見ましたので、

; ウィンドウを移動可能にする

#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2

;▼マウスドラッグによるウィンドウ移動
onclick *idou
stop
*idou
if wparam == 1 {
cursel = ginfo_sel : gsel ginfo_act
sendmsg hwnd ,$a1,2,z
gsel cursel
}
stop

に、変えました。
でも、Ｆ５で実行してみても移動できません。
なぜできないんでしょうか・・・
教えてください。

bgscrの次にonclickを記述すればOKかと

; ウィンドウを移動可能にする

#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2
;▼マウスドラッグによるウィンドウ移動
bgscr 2,640,480
onclick *idou
stop
*idou
if wparam == 1 {
sendmsg hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0
}
stop

inoviaさんお返事ありがとうございます。

最初のスクリプトは、


bgscr 0,300,300,0,,,110,20
picload "ファイル名.jpg" ,1
gsel 0,2;最前面にする
#include "ポップアップウィンドウスクリプトファイル名.hsp"

; ウィンドウを移動可能にする

#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2

;▼マウスドラッグによるウィンドウ移動
onclick *idou
stop
*idou
if wparam == 1 {
cursel = ginfo_sel : gsel ginfo_act
sendmsg hwnd ,$a1,2,z
gsel cursel
}
stop


だったので、inoviaさんのおっしゃる通りに
bgscrの次に


;▼マウスドラッグによるウィンドウ移動
onclick *idou
stop
*idou
if wparam == 1 {
cursel = ginfo_sel : gsel ginfo_act
sendmsg hwnd ,$a1,2,z
gsel cursel
}
stop

を入れて、

; ウィンドウを移動可能にする

#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2

を一番頭にもっていきました。
すると、ウィンドウは確かに動きました。
ありがとうございました。

ですが、１つ問題が・・・・

bgscrの次にいれるまでは出せていたポップアップウィンドウが
出なくなってしまいました。

なぜ出せていた物が出なくなってしまったんでしょうか・・・

教えてください。

宜しくお願いします。

追記

bgscrの次にonclickを入れたら
画像は動くようになりましたが、
真っ白な指定された大きさの画像になりポップアップは出ず、
最前面にもならず、

picloadの次に入れても
画像は動きますが、これまたポップアップは出ず、
最前面にもならず、

gselの次にいれても、
画像は動きますが、これまたポップアップは出ず、
最前面にはなる。

と、いう感じになりました・・・

どうしたらよいのでしょうか・・・

教えてください。

宜しくお願いします。

#include "ポップアップウィンドウスクリプトファイル名.hsp"
にどんな記述がされているかが不明ですので回答しにくいです。

http://lhsp.s206.xrea.com/hsp_menu.html#2
を参考に適当にスクリを組んでみました。

#include "user32.as"

#define WM_NCLBUTTONDOWN $000000A1
#define HTCAPTION 2

	bgscr 0,640,480:color ,,128:boxf:button "終了",*exit
	gsel 0,2
	onclick gosub *idou
	onexit *exit
	CreatePopupMenu:hMenu.0 = stat
	AppendMenu hMenu.0, 0, 0, "めにゅーだべさ"
	stop

*idou
	if wparam == 1 {
		sendmsg hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0
	}
	
	if wparam = 2 {
		TrackPopupMenu hMenu.0, $100, ginfo(0), ginfo(1), 0, hwnd, 0
			if stat = 0 : return
			dialog "項目 "+stat+" を選択！"
			return
		}
	return
*exit
	DestroyMenu hMenu.0
	end

inoviaさん返事ありがとうございます。

inoviaさんの作って頂いたスクリプトを元に

必要なものをコピペし、書き方を変えました。

すると、ちゃんと表示できました。

ホントにホントにありがとうございました。

解決致しました。