メッセージ待ち行列のメッセージ

メッセージ待ち行列 (PRIM_MSGQ) のメンバ

ﾃﾞｰﾀ ﾀｲﾌﾟ - Collection of PRIM_MSGQ.Message - メッセージ待ち行列で見つかった個別のメッセージ

詳細

Messages プロパティにより、クライアント・メッセージ・キュー上のメッセージのコレクションにアクセスできます。

例

この例では、アプリケーションのメッセージを表示するためにポップアップパネルが使用されています。
 
Show メソッドが実行されるたびに、メッセージがリストに追加され、ポップアップパネルが表示されます。

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PPNL) Displayposition(1) Height(265) Left(0) Tabposition(1) Top(0) Width(425) Titlebar(True) Caption('Messages') Closebutton(True) Autoclose(False) Layoutmanager(#TableLayout1)
 
   Define_Com Class(#PRIM_VS.Style) Name(#Style1) Borderbottom(0) Borderleft(0) Borderright(0) Bordertop(0)
 
   Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1) Height(1.55)
   Define_Com Class(#PRIM_TBLO.Item) Name(#ListItem1) Column(#Column1) Manage(#List) Parent(#TableLayout1) Row(#Row1)
 
   Define_Com Class(#PRIM_LIST) Name(#List) Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(30) Height(235) Width(425) Columnheaderheight(0) Columnlines(False) Rowlines(False) Rowheight(25) Style(#Style1)
   Define_Com Class(#PRIM_LIST.String) Name(#ColumnXDEMOCAPT) Displayposition(1) Parent(#List) Source(#xDemoCaption) Columnwidth(1) Columnunits(Proportion)
 
   Mthroutine Name(Show)
 
      Clr_List Named(#List)
 
      For Each(#Message) In(#sys_msgq.Messages)
 
         #xDemoCaption := #Message.Text
         Add_Entry To_List(#List)
 
 Endfor
 
   #Com_owner.ShowPopup Transition(FadeInAndScale)
 
 Endroutine
 
 End_Com

参照

すべてのコンポーネント クラス

テクニカルリファレンス

2018 - V14SP1