｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
２３．ﾌｫｰﾑ(TForm)の使い方
─────────────────────────────────────
[1]ﾌｫｰﾑ(TForm)ｵﾌﾞｼﾞｪｸﾄの作成
→共通ルーチン【ZVCMFRM】【ZVCMWND】
①予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
②ｲﾍﾞﾝﾄﾏｽｸを設定します、例では[CLSEVENT^ZVCMFRM]ですが-＞適切に設定
③rectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMFRM]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合ﾃﾞﾌｫﾙﾄの色
(font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合(null)[font=501]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて]
--＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ
(keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ
--＞0を指定した場合0番のｷｰｾｯﾄを指定した意味
※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません
(その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMFRM] -＞ rectstrが作成される
④ｷｬﾌﾟｼｮﾝに表示する文字列をeditﾊﾟﾗﾒﾀに設定します。[editstr]
※[S editstr="ｷｬﾌﾟｼｮﾝに表示する文字列"]
⑤[D CREATE^ZVCMFRM]で使用されるﾊﾟﾗﾒﾀを設定する
※[S cid=(1～1023の一意の番号)]
※[S form=(1～1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
form -＞ このｺﾝﾄﾛｰﾙが置かれているﾌｫｰﾑ番号 通常0以外を指定
0:vcom画面にﾌｫｰﾑを貼付けます
vcom画面上にﾌｫｰﾑを作成したい時は[9]form=0,[7]parent=0と指定します
1-＞1023:ﾌｫｰﾑ番号(通常のﾌｫｰﾑ)
※[S parent=(1～1023の親ｺﾝﾄﾛｰﾙのcid番号)]
※[S group=(0～32767のｸﾞﾙｰﾌﾟ番号)]
※[S opt=ﾎﾞｰﾀﾞｽﾀｲﾙ(BorderStyle)]
0: 標準(ｻｲｽﾞ変更可能)Sizeable[06-jul-2000]修正
1: (ｻｲｽﾞ変更可能)ToolWindow
2: (ｻｲｽﾞ変更可能)SizeToolWin
3: (ｻｲｽﾞ変更不可)Single
4: ｷｬﾌﾟｼｮﾝ無し(ｻｲｽﾞ変更不可)None
※[S pm1=(Position)]
1:ｽｸﾘｰﾝの中央に表示されます
2:ｽｸﾘｰﾝの中央に表示されます
0:[5]rectﾊﾟﾗﾒﾀの[編集領域番号の内容] の位置ｻｲｽﾞ(xywh)
※pm1=0時位置ｻｲｽﾞの誤りを修正[08-apr-2003]
※pm1=0,[9]form=0,[7]parent=0の場合の表示位置の誤りを修正[2007-10-6]
※[S pm2=(FormStyle)]
0:ﾌｫｰﾑはMDIの親でも子でもない
1:ﾃﾞｽｸﾄｯﾌﾟの一番上に表示される
※[S pm3=(AutoSize)]
0:自動ｻｲｽﾞ変更しない()[08-mar-2002]
1:ｺﾝﾄﾛｰﾙの中身に合わせてWindow自動ｻｲｽﾞする[08-mar-2002]
※[S pm4=(AutoScroll)
0:ｽｸﾛｰﾙﾊﾞｰを表示しない[08-mar-2002]
1:自動ｽｸﾛｰﾙ(必要な場合ｽｸﾛｰﾙﾊﾞｰを表示)[08-mar-2002]
※[S pm5=[x]印をｸﾘｯｸしてﾌｫｰﾑを閉じる場合の動作]
0:ﾌｫｰﾑを隠す(引き続きｱｸｾｽ出来る)
1:何もしない(ﾌｫｰﾑはそのまま)
2:ﾌｫｰﾑは最小化される
※[D CREATE^ZVCMFRM]ｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
⑥作成後ｷｬﾌﾟｼｮﾝに表示する文字列を変更する。
※[S cid=(1～1023の一意の番号)]
※[S editstr="文字列"]
※[D CAPTION^ZVCMMFRM]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙのテキストを変更する
⑦ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからｲﾍﾞﾝﾄ情報を取得する
※ｲﾍﾞﾝﾄ種別=通常フォームクローズイベントのみを処理します
※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):ｲﾍﾞﾝﾄ種別
※(Rselcnt):0
※(Roption): ﾋﾟｸｾﾙX ; ﾋﾟｸｾﾙY ; ﾃｷｽﾄX ; ﾃｷｽﾄY
※(Rsub):キャプションの文字列
※(Rkeycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ時仮想ｷｰｺｰﾄﾞ
※(Rshift):シフト状態 0:無し 1:シフト 2:ｺﾝﾄﾛｰﾙ 4:＜ALT＞の組み合わせ
─────────────────────────────────────
[2]ﾌｫｰﾑ(ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
→共通ルーチン【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= 32 : (5)フォームクローズｲﾍﾞﾝﾄ応答可(ﾋﾞｯﾄ5) [※Action動作]
※ｲﾍﾞﾝﾄ設定変数を設定 → D FORMCLOSE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2RClose],[Revent1=EV1close]
─────────────────────────────────────
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= 1 : (16)マウス左押す応答可(ﾋﾞｯﾄ0)[Roptionを返す]
※ｲﾍﾞﾝﾄ設定変数を設定 → D LEFTDOWN^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Down],[Revent1=EV1Other]
─────────────────────────────────────
mask2= 2 : (17)マウス左離す応答可(ﾋﾞｯﾄ1)[Roptionを返す]
※ｲﾍﾞﾝﾄ設定変数を設定 → D LEFTUP^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Up],[Revent1=EV1Other]
─────────────────────────────────────
mask2= 64 : (22)マウス左ダブルクリック応答(ﾋﾞｯﾄ6)
※ｲﾍﾞﾝﾄ設定変数を設定 → D LEFTDBL^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2DblClick],[Revent1=EV1DblClick]
─────────────────────────────────────
mask2= 128 : (23)マウス右ダブルクリック応答(ﾋﾞｯﾄ7)
※ｲﾍﾞﾝﾄ設定変数を設定 → D RIGHTDBL^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2RDblClick],[Revent1=EV1Other]
─────────────────────────────────────
mask5= 2 : (41)サイズ変更された(ﾋﾞｯﾄ1)
※ｲﾍﾞﾝﾄ設定変数を設定 → D SIZE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Size],[Revent1=EV1Other]
─────────────────────────────────────
mask5= 4 : (42)再描画要求(Paint)(ﾋﾞｯﾄ2)
※ｲﾍﾞﾝﾄ設定変数を設定 → D PAINT^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Paint],[Revent1=EV1Other]
─────────────────────────────────────
mask5= 8 : (43)作成時(Create)(ﾋﾞｯﾄ3)
※ｲﾍﾞﾝﾄ設定変数を設定 → D CREATE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Create],[Revent1=EV1Other]
─────────────────────────────────────
mask5= 16 : (44)廃棄時(Destroy)(ﾋﾞｯﾄ4)
※ｲﾍﾞﾝﾄ設定変数を設定 → D DESTROY^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Destroy],[Revent1=EV1Other]
─────────────────────────────────────
mask5= 32 : (45)アクテイブ化(ﾋﾞｯﾄ5)
※ｲﾍﾞﾝﾄ設定変数を設定 → D ACTIVATE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Activate],[Revent1=EV1Other]
─────────────────────────────────────
mask5= 64 : (46)非アクテイブ化(ﾋﾞｯﾄ6)
※ｲﾍﾞﾝﾄ設定変数を設定 → D DEACTIVATE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Deactivate],[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
─────────────────────────────────────
[3]ﾌｫｰﾑ(TForm)からﾒｯｾｰｼﾞﾎﾞｯｸｽ
→共通ルーチン【ZVCMFRM】
※[S cid=(1～1023の一意の番号)]
※[S editstr=(ﾒｯｾｰｼﾞ文字列)]
※[S rectstr=(ﾀｲﾄﾙ文字列)]
※[S action=(ﾒｯｾｰｼﾞﾎﾞｯｸｽの形式)]
０ メッセージボックスには［ＯＫ］プッシュボタンが含まれます。
１ メッセージボックスには［ＯＫ］プッシュボタンと
［キャンセル］プッシュボタンが含まれます。
２ メッセージボックスには［中止］［再試行］［無視］
の３つのプッシュボタンが含まれます。
３ メッセージボックスには［はい］［いいえ］
［キャンセル］の３つのプッシュボタンが含まれます。
４ メッセージボックスには［はい］［いいえ］
のプッシュボタンが含まれます。
５ メッセージボックスには［再試行］プッシュボタンと
［キャンセル］プッシュボタンが含まれます。
１６ ［ＳＴＯＰ］アイコンがメッセージボックスに表示されます。
３２ ［疑問符］アイコンがメッセージボックスに表示されます。
４８ ［感嘆符］アイコンがメッセージボックスに表示されます。
６４ 円の中に小文字の「ｉ」があるアイコンがメッセージ
ボックスに表示されます。
０ 最初のボタンがデフォルトになります。
２５６ ２番目のボタンがデフォルトになります。
５１２ ３番目のボタンがデフォルトになります。
０ 作業を継続する前にメッセージボックスに応答しなけれな
なりません。しかしユーザは、ほかのアプリケーション
に移動しそのウィンドウ内で作業をすることが出来ます。
４０９６ 全てのアプリケーションはユーザがメッセージボックス
に応答するまで中断されます。
８１９２ ０を指定したのとおなじ。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━
ビットＯＲした数値を指定できます。
※[D MSGBOX^ZVCMMFRM]ﾒｯｾｰｼﾞﾎﾞｯｸｽ
※[OKCANCEL ＜- 結果
１ ［ＯＫ］ボタンが押されました。
２ ［キャンセル］ボタンが押されました。
３ ［中止］ボタンが押されました。
４ ［再試行］ボタンが押されました。
５ ［無視］ボタンが押されました。
６ ［はい］ボタンが押されました。
７ ［いいえ］ボタンが押されました。
───────────────────────────────────
[4]ﾌｫｰﾑ(TForm)からﾌｧｲﾙを開くﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽ
→共通ルーチン【ZVCMWND】
───────────────────────────────────
23-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜