｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
３８．ﾀﾌﾞｼｰﾄ(TTabSheet)の使い方 
─────────────────────────────────────
 [1]ﾀﾌﾞｼｰﾄ(TTabSheet)ｵﾌﾞｼﾞｪｸﾄの作成
　　　   →共通ルーチン【ZVCMTBS】 
  TTabSheet コンポーネントは，タブ付きページコントロールでページを表します。
  通常，タブシートとはページを意味します。
  TPageControl は，Pages プロパティ中にタブシートの添字付きの配列を保持します。
  ユーザーがタブをクリックするとそのタブシートがアクティブになります。
  �@予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB] 
  �Aｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMTBS]ですが-＞適切に設定 
  �Brectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMTBS] 
     (x,y,w,h):位置サイズ情報(行桁サイズモードに設定後) 
     (color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合ﾃﾞﾌｫﾙﾄの色 
     (font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合(null)[font=501]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて] 
     --＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ 
     ※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません 
     (その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。 
     ※[D SETRECT^ZVCMTBS] -＞ rectstrが作成される
  �Cｺﾝﾄﾛｰﾙの作成時表示される文字列をeditﾊﾟﾗﾒﾀに設定します。[editstr] 
     ※[S editstr="文字列"]
  �D[D CREATE^ZVCMTBS]で使用されるﾊﾟﾗﾒﾀを設定する 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S form=(1〜1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
     ※[S parent=(1〜1023の親ﾍﾟｰｼﾞｺﾝﾄﾛｰﾙのcid番号)]
     ※[S group=(0〜32767のｸﾞﾙｰﾌﾟ番号)]
     ※[D CREATE^ZVCMTBS]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
  �E作成後ｺﾝﾄﾛｰﾙの中に表示するテキストを変更する。
     ※[S cid=(1〜1023の一意の番号)]
     ※[S editstr="文字列"]
     ※[D TEXT^ZVCMTBS]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙのテキストを変更する
  �Fｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからタブシートのテキストの文字列を取得する
     ※ｲﾍﾞﾝﾄ種別=通常タブの変更イベントで処理します
     ※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
     ※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
     ※(Revent2):ｲﾍﾞﾝﾄ種別
     ※(Rselno):ページ内でのタブシートの配置位置(0,1,2,...)
     ※(Rselcnt):タブシートの配置位置(0,1,2,...)
                 --＞ 非表示であれば(-1) 
     ※(Rmain):タブシートのテキストの文字列
  �Gﾀﾌﾞｼｰﾄ(TTabSheet)を親ｺﾝﾄﾛｰﾙにしたｴﾃﾞｯﾄ,ﾎﾞﾀﾝ等を配置します。 
─────────────────────────────────────
 [2]ﾀﾌﾞｼｰﾄ(TTabSheet)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
　　　   →共通ルーチン【ZVCMEVENT】 
　　　   →共通ルーチン【ZVCMEVENT7】応答ｲﾍﾞﾝﾄｺｰﾄﾞ定数 
─────────────────────────────────────
◆ ｲﾍﾞﾝﾄﾏｽｸを設定(応答を可にする) 
　※ｲﾍﾞﾝﾄ設定変数を初期化→  D CLEAR^ZVCMEVENT 
─────────────────────────────────────
mask0= 2  : (1)マウス左クリックｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ1) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D CLICK^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Click],[Revent1=EV1Click] 
─────────────────────────────────────
mask0= 4  : (2)マウス右クリック(ポップアップ)ｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ2) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D POPUP^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2RClick],[Revent1=EV1Popup] 
─────────────────────────────────────
mask1= 8  : (11)フォーカスを失う時応答(ﾋﾞｯﾄ3) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D KILLFOCUS^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Exit],[Revent1=EV1Exit] 
─────────────────────────────────────
mask1= 16 : (12)フォーカスを得る時応答(ﾋﾞｯﾄ4) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D SETFOCUS^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Enter],[Revent1=EV1Enter] 
─────────────────────────────────────
mask5= 2 : (41)サイズ変更された(ﾋﾞｯﾄ1) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D SIZE^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Size],[Revent1=EV1Other] 
─────────────────────────────────────
mask6= 1 : (48)表示(ﾋﾞｯﾄ0) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D SHOW^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Show],[Revent1=EV1Other] 
─────────────────────────────────────
mask6= 2 : (49)非表示(ﾋﾞｯﾄ1) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D HIDE^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Hide],[Revent1=EV1Other] 
─────────────────────────────────────
　※ｲﾍﾞﾝﾄﾏｽｸを設定       →  D SETEVENT^ZVCMEVENT 
───────────────────────────────────
　　　　　　　　　　　　　  38-1
　　　　　｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜