HSPTV!掲示板

現在おいている入力オブジェクトカーソル位置の行数を知るためには、
どうすればいいのでしょうか？いろいろと考えてみたのですが、
だいぶ長くなりそうなので、簡単にできる方法を教えてください。

メッセージを使ってmesboxオブジェクトが持っている
機能を利用すると少ない記述で書けます。
カーソル位置のある行数を取得するにはこんな感じでしょうか。

#define EM_GETSEL	$00B0
#define EM_LINEFROMCHAR	$00C9

	// 入力ボックスを作成
	text = ""
	mesbox text,GINFO_WINX, GINFO_WINY
	hedit = objinfo(stat, 2)

	// オブジェクトにメッセージを送って情報を取得
	repeat
		sendmsg hedit, EM_GETSEL,varptr(st), varptr(ed)
		sendmsg hedit, EM_LINEFROMCHAR, st, 0
		title "" + stat + "行目" + " / " + st + "~" + ed
		wait 25
	loop

ありがとうございます。試してみます。