inputボックスがクリックされたら空欄にするアレ | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
// 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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX