HSPTV!掲示板

メッセージボックス（Mesbox命令で作成）で、表示されるキャレット（入力カーソル）の幅を変更したく、どのようなプログラムを書けば良いのか調べていますが、キャレットの形状の変更方法についての情報が全く見つかりません。
メッセージボックスでは文字入力するところで ｜ のような形をした入力カーソルが出ていて、この入力カーソルの幅を変更したいのです。

今の形状のカーソルだとキャレットがどこで点滅しているのかを弱視者などが見づらく、わたしの作成したソフト上だけでもキャレットが見やすいようにしたいと考えました。
コントロールパネルでキャレットの幅が変更できることは知っているのですが、わざわざコントロールパネルで変更してソフトを起動してもらうというのは利用者にとって大変なお話です。

キャレット（入力カーソルで、決してマウスカーソルではありません）の幅の変更方法を御存知の方がいらっしゃいましたら、どうか教えて下さい。
宜しくお願い致します。

‌http://oshiete.goo.ne.jp/qa/6016092.html
や
http://tokovalue.jp/CaretWidth_U.htm
を参考にするといいでしょう

まず自分にはwinAPIをいじる技術や勇気は無いのでリンクを貼ります
あなたができるならHSPに応用して下さい
それか他の人がこれをHSPのソースにしてくれることを期待して下さい

自分のリンクのどこにCreateCaretがあって調べる手間が省けたんでしょうか・・・
http://www.wwlnk.com/boheme/delphi/tips/tec0840.htm
すいません

/*あっ！ビットマップのご参考と言う事で。(3.31以前だとファイル位置が異なります)*/

#include "user32.as"
; winobj "edit","",0,$50211044,200,200
  ss = ""  :mesbox ss,200,200
  LoadImage hinstance,dirinfo(1)+"/hsptv/efx.bmp",0,0,0,16 :hh = stat
  await
  CreateCaret objinfo(0,2),hh,30,30
  ShowCaret   objinfo(0,2)
  wait 100
  CreateCaret objinfo(0,2), 0,30,30
  ShowCaret   objinfo(0,2)

皆様ありがとうございます。
メッセージボックス（Mesbox命令で作成）のキャレットの幅および高さを変更することができました！サンプルを頂いて大変助かりました。
又、リンクも参考になりました。
本当にありがとうございました。

今は、自作のソフトを起動したままでスタートメニューから他のソフトを立ち上げて使用し、自作のソフトにタスクを戻すと、キャレットの幅などが元の（細長い ｜ ）に戻ってしまっている点に悩んでいます。
下のソースのようにループで監視してみましたが、今度はキャレットが点滅しなくなってしまいました。

repeat
if ginfo(2) = 0 : objsel 0

await 1
CreateCaret hMesbox,0,textSize/2,textSize
ShowCaret hMesbox.0
redraw 1 ; gsel 0,1
wait1
loop

どのようにするとカーソルの形状だけでなく点滅まで維持できるでしょうか。
御存知の方がいらっしゃいましたら、どうか教えて下さい。

ginfoでアクティブになった瞬間に一回実行すればいいのでは

フォーカスが外れるとキャレットが破棄(HSP側が自動でやってる？)されるので作り直す

#include "user32.as"
#const WM_COMMAND	$111
#const EN_SETFOCUS	0x0100

screen 0,640,480

p1=""
mesbox p1,640,480,1 
hmesbox = objinfo(stat,2)

oncmd gosub *COMMAND,WM_COMMAND
wait 0
sendmsg  hwnd,WM_COMMAND,EN_SETFOCUS<<16 | $4000,hmesbox //mesboxにキーボードフォーカスが移った通知を入れる(初回の表示用)

stop

*COMMAND
	if hmesbox=lParam {
		en=wParam>>16
		if en=EN_SETFOCUS { //キーボードフォーカスがmesboxに来た
			CreateCaret hmesbox,0,8,16
			ShowCaret hmesbox
		}
	}
return

メッセージボックスでカーソルの形状や点滅を維持する方法について、考え方のヒントやプログラムのサンプルなどで詳細にご教示下さいましてありがとうございました。
カーソルの形状や点滅が維持できるようになったようです。
今まで丁寧に教えて下さいました皆様、本当にありがとうございました。
皆様に感謝の気持ちでいっぱいです。

また困ったことなどがありましたら色々お尋ねさせて頂くと思いますが、その際もどうか宜しくお願い致します。