｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
１２．ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙ(TEdit)の使い方
─────────────────────────────────────
[1]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙ(TEdit)ｵﾌﾞｼﾞｪｸﾄの作成
→共通ルーチン【ZVCMEDT】
※【注記】ｷｰﾎﾞｰﾄﾞ入力で[^][$][CR][ESC][TAB][ｺﾝﾄﾛｰﾙｺｰﾄﾞ]は禁止してあります。
①予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
②ｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMEDT]ですが-＞適切に設定
③rectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMEDT]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(length):入力許可最大バイト数制限値(MaxLengthﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合制限無し
(color):ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合ﾃﾞﾌｫﾙﾄの色
(font):ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合(null)[font=498]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて]
--＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ
※font=499～495を指定するとVcom画面のﾃﾞﾌｫﾙﾄｻｲｽﾞ-2ﾄﾞｯﾄ～-10ﾄﾞｯﾄの
少しだけ小さな[MS 明朝]のﾌｵﾝﾄが指定できます。
※font=489～485を指定するとVcom画面のﾃﾞﾌｫﾙﾄｻｲｽﾞ-2ﾄﾞｯﾄ～-10ﾄﾞｯﾄの
少しだけ小さな[MS ゴシック]のﾌｵﾝﾄが指定できます。
ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙに1桁分の高さを指定した場合その中に表示されるﾌｵﾝﾄは
Vcom のﾃﾞﾌｫﾙﾄｻｲｽﾞ-4のサイズが適切な場合が多いようです。
(keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ
--＞0を指定した場合0番のｷｰｾｯﾄを指定した意味
※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません
(その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMEDT] -＞ rectstrが作成される
④ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの中に表示するテキストをeditﾊﾟﾗﾒﾀに設定します。[editstr]
※[S editstr="文字列"]
⑤[D CREATE^ZVCMEDT]で使用されるﾊﾟﾗﾒﾀを設定する
※[S cid=(1～1023の一意の番号)]
※[S form=(1～1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
※[S parent=(1～1023の親ｺﾝﾄﾛｰﾙのcid番号)]
※[S group=(0～32767のｸﾞﾙｰﾌﾟ番号)]
※[D CREATE^ZVCMEDT]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
⑥作成後ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの中に表示するテキストを変更する。
※[S cid=(1～1023の一意の番号)]
※[S editstr="文字列"]
※[D TEXT^ZVCMEDT]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙのテキストを変更する
⑦ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの中に表示されているテキストを取得する
※ｲﾍﾞﾝﾄ種別=通常ﾌｫｰｶｽを失った時のイベントで処理します
※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):ｲﾍﾞﾝﾄ種別
※(Rselcnt):ﾃｷｽﾄの文字数[2008-4-4]
※(Rmain):ﾃｷｽﾄの文字列
※(Rkeycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ時仮想ｷｰｺｰﾄﾞ
※(Rshift):シフト状態 0:無し 1:シフト 2:ｺﾝﾄﾛｰﾙ 4:＜ALT＞の組み合わせ
─────────────────────────────────────
[2]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙ(TEdit)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
→共通ルーチン【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]
─────────────────────────────────────
※ｲﾍﾞﾝﾄﾏｽｸを設定 → D SETEVENT^ZVCMEVENT
───────────────────────────────────
12-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜