Q5/ws_objects/Ew_epmmsg.pbl.src/m_dfc_msg_item.srm

$PBExportHeader$m_dfc_msg_item.srm
$PBExportComments$超级菜单
forward
global type m_dfc_msg_item from menu
end type
type m_temp from menu within m_dfc_msg_item
end type
global type m_dfc_msg_item from menu
m_temp m_temp
end type
end forward

shared variables

end variables

global type m_dfc_msg_item from menu
m_temp m_temp
end type
global m_dfc_msg_item m_dfc_msg_item

type variables
GraphicObject igoObject
end variables

on m_dfc_msg_item.create
m_dfc_msg_item=this
call super::create
this.m_temp=create m_temp
this.Item[UpperBound(this.Item)+1]=this.m_temp
end on

on m_dfc_msg_item.destroy
call super::destroy
destroy(this.m_temp)
end on

type m_temp from menu within m_dfc_msg_item
end type

on m_temp.create
call super::create
this.text = "Temp"
end on

on m_temp.destroy
call super::destroy
end on

event clicked;//====================================================================
// 事件(Event): m_temp::clicked()
//--------------------------------------------------------------------
// 描述(Description): 菜单条触发时
//--------------------------------------------------------------------
// 参数(Arguments): (None)
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

IF UpperBound(Item) = 0 THEN
	String dsEventName
	u_Dfc_Base_Func duFunc
	dsEventName = duFunc.uf_GetKeyValue(Tag, "Event")
	IF dsEventName <> "" THEN		
		// 如果有效				
		IF IsValid(igoObject) THEN
			igoObject.TriggerEvent(dsEventName)
		ELSE
			ParentWindow.TriggerEvent(dsEventName)
		END IF
	END IF
END IF


end event