HSPTV!掲示板

#uselib "dwmapi.dll"
#func defica "DwmExtendFrameIntoClientArea" int, var
#uselib "user32.dll"
#cfunc GetWindowLongA "GetWindowLongA" int,int
#func SetWindowLongA "SetWindowLongA" int,int,int
#func SetLayered "SetLayeredWindowAttributes" int,int,int,int

margins = -1, 0, 0, 0
defica hwnd, margins

SetWindowLongA hwnd,-8,_hwnd
SetWindowLongA hwnd,-20,GetWindowLongA(hwnd,-20)|0x00080000
SetLayered hwnd,0xFEFEFE,0,1

color 254,254,254:boxf

color:font "",12,
mes"Aeroを使ってみよう!"
mes"ボタンもOKで〜す!"
button"終了",*exit
stop
*exit
	end

なるほど、面白いですね。何かに使えそうだけど使い道が思いつかない・・・

IE9みたいですね。
しかし、メインウィンドウをクリックすると非アクティブになります。

色々ソースを書いて試したのですが、無理でした。
でも、頑張ってみます!

ここの過去記事か他かは覚えてないけど、ちゃんと動くやつがあるはずよ。

ボタンもAeroスタイルにすれば何かに使えそう。

ウィンドウをクリックすると非アクティブになる原因は、メモ帳とかHSPスクリプトエディタのウィンドウの上で試すとわかりますよ。

>ここの過去記事か他かは覚えてないけど、ちゃんと動くやつがあるはずよ。
http://hsp.tv/play/pforum.php?mode=pastwch&num=50847