'===================================================================
'機能 :ステータスバーに文字列を設定する(onMouseOver=)
' strMessage I String 文字列
'===================================================================
Function gfstrSetStatus(strMessage)
If SG_blnErrorResumeNext Then
On Error Resume Next
End If
If strMessage <> "" Then
gfstrSetStatus = " onMouseOver=""window.status='" & strMessage & "';return true;"""
Else
gfstrSetStatus = " onMouseOver=""window.status='';return true;"""
End If
End Function