枠なしウィンドウを作成して、ドラッグ可能にする(kerupani改造版)

枠なしウィンドウを作成して、ドラッグ可能にする(kerupani改造版)

bgscr 0,400,300 : title "ウィンドウ自体をドラッグできます"
onclick gosub *move
objsize 45,25
pos 350,0 : button "×",*owari
mx=5 : my=30 : px=3 : py=3
*main
redraw 0
color 150,150,255 : boxf 0,0,400,300
color 255,255,255 : boxf 5,30,395,295
color 0,0,0 : pos 5,5 : mes "■ ウィンドウ自体をドラッグできます"
mx+px : my+py
if mx>=365 : px=-3
if my>=275 : py=-3
if mx<=5 : px=3
if my<=30 : py=3
color 255,0,0 : boxf mx,my,mx+30,my+20
redraw
await 15
goto *main
*move
if (mousex>5)and(mousex<395)and(mousey>30)and(mousey<295) {
return
} else {
if wparam=1 : sendmsg hwnd,$00A1,2,0
return
}
*owari
end


557

「枠なしウィンドウを作成して、ドラッグ可能にする(kerupani改造版)」への7件のフィードバック

  1. おお、なるほど。sendmsgが肝になってますね。
    四角の動きがまたいいです。

  2. {{{
    if mx>=365 : px=-3
    if my>=275 : py=-3
    if mx<=5 : px=3
    if my<=30 : py=3
    }}}
    のところだけで動きの方向を変えてます。

  5. こちらこそw こんな古い記事のを使ってくれてありがとうございますw

  6. HSPコンテストに出す作品の参考になりました！
    ありがとうございます！！

コメントは受け付けていません。