sample\misc\winmove.hsp » Plain Format
; ; 各種配置オブジェクトのテスト ; (ウィンドウを動かすと位置を検出します) ; ; ;onexit *m6 ;onerror *m4 ;onkey *m5 ;onclick *m5 #define WM_MOVE 0x0003 oncmd gosub *m7,WM_MOVE a=123 buf="" input a,320,24 sdim buf,256 listbox z,100,"apple\npie\ntoast" mesbox buf,320,100 button "DELETE",*m1 button "STATUS",*m2 button "MESBOX",*m8 ;button "UPDATE",*m3 stop *m1 clrobj 0,0 stop *m2 mes "input("+a+") listbox("+z+")" stop *m3 objprm 0,1 stop *m8 dialog buf stop *m4 mes "Error="+err stop *m5 mes "KEY="+iparam+"/"+wparam+"/"+lparam stop *m7 title "WINDOW="+(lparam&0xffff)+","+(lparam>>16) return *m6 dialog "終了します。" end