|目次|前ページ|次ページ|
─────────────────────────────────────
25.グループボックス(TGroupBox)の使い方
─────────────────────────────────────
[1]グループボックス(TGroupBox)オブジェクトの作成
→共通ルーチン【ZVCMGPB】(チェックボックスなどコントロールグループをのせるWindow)
@予期しない値がセットされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
Aイベントマスクを設定します、例では[V2EVENT^ZVCMGPB]ですが->適切に設定
Brectパラメタを作成します。[D SETRECT^ZVCMGPB]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(color):エデットコントロールの色番号(Colorプロパティ)
-->指定なしの場合デフォルトの色
(font):コントロールのフオント番号(Fontプロパティ)
-->指定なしの場合(null)[font=501]のフオントをセット[SETRECTにおいて]
-->0:指定の場合デフォルトのフオント
(その他のプロパティ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMGPB] -> rectstrが作成される
Cコントロールの中に表示するテキストをeditパラメタに設定します。[editstr]
※[S editstr="文字列"]
D[D CREATE^ZVCMGPB]で使用されるパラメタを設定する
※[S cid=(1〜1023の一意の番号)]
※[S form=(1〜1023の親フォームのフォーム番号)]
※[S parent=(1〜1023の親コントロールのcid番号)]
※[S group=(0〜32767のグループ番号)]
※[D CREATE^ZVCMGPB]コントロールオブジェクトの作成
E作成後コントロールの中に表示するテキストを変更する。
※[S cid=(1〜1023の一意の番号)]
※[S editstr="文字列"]
※[D CAPTION^ZVCMGPB]コントロールのテキストを変更する
Fイベント応答メッセージからコントロールの中に表示されているテキストを取得する
※イベント種別=通常イベントは処理しません
※イベント応答メッセージを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)イベント応答メッセージを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):イベント種別
※(Rselcnt):0
※(Rmain):表示文字列
─────────────────────────────────────
[2]グループボックス(TGroupBox)オブジェクトのイベント
→共通ルーチン【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]
─────────────────────────────────────
※イベントマスクを設定 → D SETEVENT^ZVCMEVENT
───────────────────────────────────
25-1
|目次|前ページ|次ページ|