タイトルバー以外をドラッグして移動

HSP2向けのスクリプトはおくださんのサイトや旧チキチキチキニータさんにあったのですが、HSP3向けのスクリプトがないようなので書いてみました。検索ワード変えたらかなりヒットしました。さくらさんのサイトや開発Wikiにもありましたね、灯台もと暗しとはこのことです。まぁこの投稿は次の投稿への布石なので、残しておきます……^^;

早い話が「クライアント領域をクリックしたときに、タイトルバーをクリックした事にしちゃう」わけです。

// 参考・http://www.microsoft.com/japan/msdn/vbasic/migration/tips/Movement/
#include "user32.as"
#define WM_NCLBUTTONDOWN    0xA1
#define HTCAPTION           0x02
    onclick gosub *click
    stop

*click
    ReleaseCapture
;   gsel ginfo_act      // ウィンドウが複数ある場合に必要
    sendmsg hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
    return