下面示例了在MDI的Microhelp棒的右边显示时间。它利用一个包含有一个单行编辑控件sle_time的Pop-Up类型窗口w_popup，用SLE显示时间。//定义MDI Frame的实例变量INTEGER OX,OY,OH,OW // OLD X,Y AND HEIGHT, WIDTHW_POPUP LPOP // LOCAL POPUP WHICH TRAIPES ...//w_MDI_frame的Open事件integer wx,wy,wh,ww // workspace extentsox=this.xoy=this.yoh=this.heightow=this.widthwx=this.workspacex ( )wy=this.workspacey ( )wh=this.workspaceheight ( )ww=this.workspacewidth ( )open(lpop)move(lpop,wx+ww - lpop.width - 15,wy+wh - lpop.height - 22)show(lpop)//w_MDI_frame的Resize事件integer wx,wy,wh,wwwx=this.workspacex ( )wy=this.workspacey ( )wh=this.workspaceheight ( )ww=this.workspacewidth ( )if ( handle (lpop) > 0 ) thenmove(lpop,wx+ww - lpop.width - 15,wy+wh - lpop.height - 22)end ifSetFocus(this)//w_MDI_frame的用户事件pbm_moveinteger wx,wy,wh,wwwx=this.workspacex ( )wy=this.workspacey ( )wh=this.workspaceheight ( )ww=this.workspacewidth ( )if ( handle (lpop) > 0 ) thenmove(lpop,wx+ww - lpop.width - 15,wy+wh - lpop.height - 22)end ifSetFocus(this)//w_popup的Open事件sle_time.weight = 300Timer(5)triggerevent(this,timer!)//w_popup的Timer事件Time tt=now()sle_time.hide ( ) //hide the slesle_time.text=space(len(sle_time.text))sle_time.text=string(hour(t))+":"+string(Minute(t))+":"+string(Second(t))sle_time.show ( ) //re-show the sle
