｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
３７．ﾍｰｼﾞｺﾝﾄﾛｰﾙ(TPageControl)の使い方
─────────────────────────────────────
[1]ﾍｰｼﾞｺﾝﾄﾛｰﾙ(TPageControl)ｵﾌﾞｼﾞｪｸﾄの作成
→共通ルーチン【ZVCMPAG】
TPageControl は，複数ページのダイアログボックスや
タブ付きノートブックを作成するために使います。
TPageControl は，TTabSheet オブジェクトである，
重なり合った複数のページを表示します。
ページを選択するには，コントロールの上部にあるページのタブ
をクリックします。
①予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
②ｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMPAG]ですが-＞適切に設定
③rectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMPAG]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合ﾃﾞﾌｫﾙﾄの色
(font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合(null)[font=501]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて]
--＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ
(keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ
--＞0を指定した場合0番のｷｰｾｯﾄを指定した意味
※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません
(その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMPAG] -＞ rectstrが作成される
④ｺﾝﾄﾛｰﾙの作成時表示される文字列をeditﾊﾟﾗﾒﾀに設定します。[editstr]
※[S editstr="文字列"]
⑤[D CREATE^ZVCMPAG]で使用されるﾊﾟﾗﾒﾀを設定する
※[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:上部(tpTop)
-＞ 2:下部(tpBottom)
-＞ 3:左側(tpLeft)
-＞ 4:右側(tpRight)
※[S pm2=マウスを置くとラベルが強調される(HotTrack)]
-＞ 0:されない
-＞ 1:マウスを置くとラベルが強調される
※[S pm3=タブを複数の行で表示(MultiLine)]
-＞ 0:タブを1行で表示
-＞ 1:タブを複数の行で表示
※[S pm4=コントロールの幅を収めれれるようにタブ行を自動拡張(RaggedRight)]
-＞ 0:自動拡張しない
-＞ 1:自動拡張する
※[S pm5=複数行のタブでスクロールする方法表示(ScrollOpposite)]
-＞ 0:前のタブはほかの全てのタブの背後に移動
-＞ 1:タブを選択した時前のタブが最下部に移動(表示位置上部)
※[D CREATE^ZVCMPAG]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
⑥タブ選択表示の変更
※[S cid=(1～1023の一意の番号)]
※[S pos=選択番号(0,1,2,...)]
※[D SELECT^ZVCMPAG]タブ選択表示を変更する
⑦ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞから選択されているタブシートを取得する
※ｲﾍﾞﾝﾄ種別=通常タブの変更イベントで処理します
※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):ｲﾍﾞﾝﾄ種別
※(Rselno):現在選択されているタブシートのインデックス(0,1,2,...)
※(Rmain):現在選択されているタブシートのテキストの文字列
⑧ﾀﾌﾞｺﾝﾄﾛｰﾙ(TTabControl)を親ｺﾝﾄﾛｰﾙにしたﾀﾌﾞｼｰﾄ(TTabSheet)を配置します。
⑨ﾀﾌﾞｼｰﾄ(TTabSheet)を親ｺﾝﾄﾛｰﾙにしたｴﾃﾞｯﾄ,ﾎﾞﾀﾝ等を配置します。
─────────────────────────────────────
[2]ﾍｰｼﾞｺﾝﾄﾛｰﾙ(TPageControl)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
→共通ルーチン【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]
─────────────────────────────────────
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
───────────────────────────────────
37-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜