inputボックスがクリックされたら空欄にするアレ Ver2 | 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
38
39
40
41
42
43
44
45
46
47
48
49
// hscallbk.as が必要です。
// http://chokuto.ifdef.jp/download/#hscallbk
#include "user32.as"
#include "hscallbk.as"
#define WM_KILLFOCUS 0x0008
#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
    // 比較のためにノーマルボタンを設置
    normal = ""
    input normal
    
stop
*InputWndProc
    // input ボックスが左クリックされた場合
    if callbkarg(1) == WM_LBUTTONDOWN{
        if text == "検索"{
            // input を空欄にする
            text = ""
            objprm objid_text, text
        }
    }else : if callbkarg(1) == WM_KILLFOCUS{
        // 非アクティブになったときの処理
            if text == ""{
                // input を元に戻す
                text = "検索"
                objprm objid_text, text             
            }
    }
    CallWindowProc OldInputWndProc, callbkarg(0), callbkarg(1), callbkarg(2), callbkarg(3)  
return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX