winmove.hsp

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