前回のデスクトップアイコン風のソースと組み合わせてみたのですが、少し不具合が...
画像なしで実行しても同じ症状が発生しました。
症状 メモ帳を起動したまま親ウィンドウをクリックしようとすると反応せず、親ウィンドウ内でドラッグすると、
メモ帳もドラッグされている
問題のソースコード
mes "test"
button "notepad",*notepad stop *Music dialog "未完成ですOrz",1,"エラー" stop *notepad bgscr 10,570,400 title "メモ帳" onclick gosub *move buffer 9 font "MS UI Gothic", 16, 1 value_color = $FF, $FF, $FF gosub *draw gsel 10 onclick gosub *move mx=5 : my=30 : px=3 : py=3 pos 5,29 sdim txt, 0 notesel buf mesbox txt, 560, 300 objmode 2 font "メイリオ",18 objsize 70,30 pos 150,350 button "保存...", *save pos 230,350 button "クリア", *clear pos 310,350 button "Load",*Load objimage 9, 0, 0, 0, 30, 0, 60 objsize 40,20 pos 525,1 :button "",*check *main redraw 0 color 0,0,0 : boxf 0,0,570,400 color 150,150,255 : boxf 1,1,568,398 color 0,0,0 : pos 5,5 : mes "メモ帳" pos 5,30 mes "" onexit *check redraw await 15 goto *main *move if wparam=1 : sendmsg hwnd,$00A1,2,0 return *owari end *draw color 255,0,0 boxf 0, 0, 100, 30 color 150,50,50 boxf 0, 30, 100, 60 color 255,50,50 boxf 0, 60, 100, 90 color value_color.0, value_color.1, value_color.2 pos 12, 3 mes "×" pos 12, 33 mes "×" pos 12, 63 mes "×" return *clear dialog "入力した内容がすべて消えます。\n残しておきたい場合は保存することをおすすめします。" ,3, "Garry050 OS" if stat = 6 { objprm 0, "" stop } if stat = 7 { stop } *save dialog "txt", 17, "保存する名前" if stat = 0 : stop fname = refstr exname=getpath(fname,2) ; ファイル名の拡張子を取得 if exname="" : fname+=".txt" notesel txt notesave fname mes "保存しました。" stop *Load dialog "",16,"" if stat = 0 { stop } if stat = 1 { notesel txt noteload refstr objprm 0, txt } *check dialog "入力した内容がすべて消え、プログラムを終了します。\n残しておきたい場合は保存することをおすすめします。" ,3, "Garry050 OS" if stat = 6 { objprm 0, "" end } if stat = 7 { stop }