｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
３６．ﾀﾌﾞｺﾝﾄﾛｰﾙ(TTabControl)の使い方 
─────────────────────────────────────
 [1]ﾀﾌﾞｺﾝﾄﾛｰﾙ(TTabControl)ｵﾌﾞｼﾞｪｸﾄの作成
　　　   →共通ルーチン【ZVCMTAB】 
    TTabControl を使うと，複数のタブ設定を持つコントロールをフォームに追加できます。
    ページコントロールとは異なり，
    TTabControl は異なるコントロールを格納する複数のページを持たない単一のオブジェクトです。
    現在のタブが変わると，タブコントロールは変更を反映するために
    OnChange イベントハンドラで直接コントロールの内容を更新しなければなりません。
  �@予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB] 
  �Aｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMEDIT]ですが-＞適切に設定 
  �Brectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMTAB] 
     (x,y,w,h):位置サイズ情報(行桁サイズモードに設定後) 
     (color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合ﾃﾞﾌｫﾙﾄの色 
     (font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合(null)[font=501]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて] 
     --＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ 
     (keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ 
     --＞0を指定した場合0番のｷｰｾｯﾄを指定した意味 
     ※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません 
     (その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。 
     ※[D SETRECT^ZVCMTAB] -＞ rectstrが作成される
  �Cｺﾝﾄﾛｰﾙの作成時表示される文字列をeditﾊﾟﾗﾒﾀに設定します。[editstr] 
        ﾀﾌﾞ表示する文字列を複数指定 
        文字列-1$文字列-2$...$  の様に指定してください 
     ※[S editstr=文字列-1$文字列-2$...$]
  �D[D CREATE^ZVCMTAB]で使用されるﾊﾟﾗﾒﾀを設定する 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S form=(1〜1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
     ※[S parent=(1〜1023の親ｺﾝﾄﾛｰﾙのcid番号)]
     ※[S group=(0〜32767のｸﾞﾙｰﾌﾟ番号)]
     ※[S opt=タブのスタイル(Style)]
          -＞ 0:標準のタブ(tsTabs) 
          -＞ 1:標準のタブ(tsTabs) 
          -＞ 2:ボタンタブ(tsButtons) 
          -＞ 3:平らなボタンタブ(tsFlatTabs) 
     ※[S pm1=タブの表示位置(TabPosition)]
          -＞  0:上部 
          -＞  1:上部(taTop) 
          -＞  2:下部(taBottom) 
          -＞  3:左側(taLeft) 
          -＞  4:右側(taRight) 
     ※[S pm2=マウスを置くとラベルが強調される(HotTrack)]
          -＞  0:されない 
          -＞  1:マウスを置くとラベルが強調される 
     ※[S pm3=タブを複数の行で表示(MultiLine)]
          -＞  0:タブを1行で表示 
          -＞  1:タブを複数の行で表示 
     ※[S pm4=コントロールの幅を収めれれるようにタブ行を自動拡張(RaggedRight)]
          -＞  0:自動拡張しない 
          -＞  1:自動拡張する 
     ※[S pm5=複数行のタブでスクロールする方法表示(ScrollOpposite)]
          -＞  0:前のタブはほかの全てのタブの背後に移動 
          -＞  1:タブを選択した時前のタブが最下部に移動(表示位置上部) 
     ※[S pm6=複数のタブを選択出来る(ボタンタブ/平らなボタンタブのみ)(MultiSelect)]
          -＞  0:出来ない 
          -＞  1:出来る 
     ※[D CREATE^ZVCMTAB]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
  �E作成後ｺﾝﾄﾛｰﾙの中に表示するテキストを変更する。
     ※[S cid=(1〜1023の一意の番号)]
     ※[S editstr="文字列"]
     ※[D TEXT^ZVCMTAB]ｺﾝﾄﾛｰﾙのテキストを変更する
  �Fタブ選択表示の変更
     ※[S cid=(1〜1023の一意の番号)]
     ※[S pos=選択番号(0,1,2,...)]
     ※[D SELECT^ZVCMTAB]タブ選択表示を変更する
  �Gｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞから選択されているタブを取得する
     ※ｲﾍﾞﾝﾄ種別=通常タブの変更イベントで処理します
     ※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
     ※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
     ※(Revent2):ｲﾍﾞﾝﾄ種別
     ※(Rselno):現在選択されているタブのインデックス(0,1,2,...)
     ※(Rmain):現在選択されているタブのテキストの文字列
     ※(Rkeycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ時仮想ｷｰｺｰﾄﾞ
     ※(Rshift):シフト状態 0:無し 1:シフト 2:ｺﾝﾄﾛｰﾙ 4:＜ALT＞の組み合わせ 
  �Hﾀﾌﾞｺﾝﾄﾛｰﾙ(TTabControl)を親ｺﾝﾄﾛｰﾙにしたｴﾃﾞｯﾄ,ﾎﾞﾀﾝ等を配置します。 
─────────────────────────────────────
 [2]ﾀﾌﾞｺﾝﾄﾛｰﾙ(TTabControl)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
　　　   →共通ルーチン【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] 
─────────────────────────────────────
mask0= 8  : (3)キーボードｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ3)【発生しない】  
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D KEYBORD^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Keybord],[Revent1=EV1Keybord] 
─────────────────────────────────────
mask1= 8  : (11)フォーカスを失う時応答(ﾋﾞｯﾄ3)【発生しない】
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D KILLFOCUS^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Exit],[Revent1=EV1Exit] 
─────────────────────────────────────
mask1= 16 : (12)フォーカスを得る時応答(ﾋﾞｯﾄ4)【発生しない】 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D SETFOCUS^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Enter],[Revent1=EV1Enter] 
─────────────────────────────────────
mask2= 64 : (22)マウス左ダブルクリック応答(ﾋﾞｯﾄ6)【発生しない】 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D LEFTDBL^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2DblClick],[Revent1=EV1DblClick] 
─────────────────────────────────────
mask3= 1  : (24)タブの変更/値が変更等(Change)(ﾋﾞｯﾄ0) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D CHANGE^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Change],[Revent1=EV1Other] 
─────────────────────────────────────
mask5= 2 : (41)サイズ変更された(ﾋﾞｯﾄ1) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D SIZE^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Size],[Revent1=EV1Other] 
─────────────────────────────────────
　※ｲﾍﾞﾝﾄﾏｽｸを設定       →  D SETEVENT^ZVCMEVENT 
───────────────────────────────────
　　　　　　　　　　　　　  36-1
　　　　　｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜