HSPTV!掲示板

Windowsメモ帳のクローンを作りたいと思っています
・タイトルのついたタブ
・それぞれの✖ボタンで閉じる
・右の＋を押して増やせる
等のやり方がわかりません
なお、選択した奴は配列に内容を入れておいて、mesboxで反映させようかなと思っています
難しそうですが、概念コードでもいいのでお願いします。

初心者ながらタブっぽいものを作ってみました。
ご自由にお使いください。

sx = 640
sy = 480
screen 0,sx,sy
title "メモ帳"

onclick gosub *click

TABMAX = 6 //タブの上限
font msgothic,20

tabNum = 1 //タブの数
nowTab = 0 //現在のタブ
a = 0
sdim tabName,,TABMAX //タブの名前
tabName.0 = "NewTab"+a
a++

*main //タブの描画
	redraw 0
	if(tabNum == 0):end //タブの数が0なら終了
	color 255,255,255
	boxf

	color
	repeat tabNum
		line 100*(cnt+1),0, 100*(cnt+1),25
		pos 100*cnt+5,5
		mes tabName.cnt

		pos 100*(cnt+1)-15,0
		mes "x"
	loop
	line 0,25, 100*nowTab,25
	line 100*(nowTab+1),25, sx,25
	//一番後ろに+
	if (tabNum != TABMAX){
		pos 100*tabNum+5,5
		mes "+"
	}
	
	redraw 1
	await 33
goto *main

*click
	mx = mousex
	my = mousey
	if (my<=25){
		repeat tabNum
			if(100*cnt<=mx && mx<100*(cnt+1)-15){ //タブ選択
				nowTab = cnt
			}else:if( 100*(cnt+1)-15<=mx && mx<100*(cnt+1) ){ //タブ削除
				for i,cnt,tabNum-1,1
					tabName(i) = tabName(i+1)
				next
				if(nowTab==tabNum-1 || nowTab>cnt) :nowTab--
				tabNum--
			}
		loop
		if(100*tabNum<=mx && mx<=100*tabNum+20){ //タブ作成
			tabName(tabNum) = "NewTab"+a
			a++
			tabNum++
		}
	}
return

タブコントロールを使えばできます。
http://lhsp.s206.xrea.com/hsp_object6.html

タブコントロールにどうやって「×ボタン」や「＋ボタン」を実装するのか、
試しにbutton命令で作ったボタンをタブコントロールの子ウィンドウ
(ウィンドウ全体から見ると孫ウィンドウ)にするという方法で
やってみましたが、これだとボタンを押した時の割り込みが
発生しなくなってしまいました。

よしんばこの方法で実装可能だったとしても、
恐ろしく話が面倒になりそうな気配がありますし、
やっぱりあいそとーぷさんの「自前でタブを描画する」という
やり方がベストかもしれませんね。