#実装方法：【続：実装編】FlexGridによるWebアプリチャット機能実装③

Event OnMessage(&NotificationInfo) //メッセージ受信
    //一覧を更新
    Grid.Refresh()
EndEvent

Event 'Update_Handler' //応答ボタン
    CstSprtWP.Popup(CstSprtClientId)
EndEvent

参考までに、前回作成したチャット画面（ChatWC）のEventsエレメントの内容も再掲します。

Event 'txtSend_Handler' //送信アイコン押下時
	
	if not &dMsg.IsEmpty()
		
		//カスタマーサポート
		for each
			where CstSprtClientId = &Socket.ClientId
			where not CstSprtResClientId.IsEmpty()
			
			//チャットメッセージ履歴追加
			UpdCstSprtPC.Call(&Socket.ClientId,CstSprtResClientId,&dMsg,CLIENTTYP.Client)
			
			//応対者にメッセージを通知
			&NotificationInfo.Id = CstSprtClientId
			&NotificationInfo.Message = &dMsg
//			&NotificationInfo.Object = DNTFTYP.CstSprt //件名：カスタマーサポート
			&Socket.NotifyClient(CstSprtResClientId,&NotificationInfo)

		when none
			
			//チャットメッセージ履歴追加（チャットを新規登録）
			UpdCstSprtPC.Call(&Socket.ClientId,!'',&dMsg,CLIENTTYP.Client)
			
			//メッセージをブロードキャスト
			&NotificationInfo.Id = &Socket.ClientId
			&NotificationInfo.Message = &dMsg
//			&NotificationInfo.Object = DNTFTYP.CstSprt //件名：カスタマーサポート
			&Socket.Broadcast(&NotificationInfo)
			
		endfor

		grdChat.Refresh()
		
	endif

EndEvent

Event OnMessage(&NotificationInfo) //メッセージ受信

	//自分向けのメッセージ且つサポートからの応答の場合
	If &NotificationInfo.Id = &Socket.ClientId
		//一覧を更新
		grdChat.Refresh()
	endif

EndEvent

※2022/2/15 私の環境の問題だと思いますが、&Notification.Objectを指定した場合、OnMessageイベントが
ハンドリングされない現象が発生したため一部コメントアウトしています。

動作確認

一通り実装が終わりましたので、実際に動かしてみます。
問い合わせが１件も無い場合はサポート画面の一覧には何も表示されていません。

【問い合わせ無】

この状態で、別タブにチャット画面を開き、メッセージを入力してみます。