inputボックスがクリックされたら空欄にするアレ

inputボックスがクリックされたら空欄にするアレです。hscallbk.as が必要です。

inputボックスがクリックされたら空欄にするアレです。hscallbk.as が必要です。

// hscallbk.as が必要です。
// http://chokuto.ifdef.jp/download/#hscallbk

#include "user32.as"
#include "hscallbk.as"

#define WM_LBUTTONDOWN 0x0201
#define GWL_WNDPROC -4
// ダミー定義
#uselib ""
#func _InputWndProc "" int,int,int,int

	// コールバック関数の登録
	setcallbk Proc, _InputWndProc, *InputWndProc

	objsize 120, 20
	text = "検索"
	input text : objid_text = stat

	// input のウィンドウプロシージャの変更
	SetWindowLong objinfo(objid_text, 2), GWL_WNDPROC, varptr(Proc)
	// 変更前のウィンドウプロシージャ
	OldInputWndProc = stat
	
stop

*InputWndProc
	// input ボックスが左クリックされた場合
	if callbkarg(1) == WM_LBUTTONDOWN{
		if text == "検索"{
			// input を空欄にする
			text = ""
			objprm objid_text, ""
		}
	}
	CallWindowProc OldInputWndProc, callbkarg(0), callbkarg(1), callbkarg(2), callbkarg(3)	
return