*// 使用:
*// WaitWindows("这是一个提示")
*// 可以反复调用，如WaitWindows("这是提示1")、WaitWindows("这是提示2")
*// 清除:
*// WaitWindows()
*//------------------------------
*// 登待窗口
*//------------------------------
FUNCTION WaitWindows
PARAMETERS PP_INFO
IF EMPTY(PP_INFO)
RELEASE Sys_Message_Wait
RETURN
ENDIF
PUBLIC LP_INIFO
LP_INFO = PP_INFO
PUBLIC Sys_Message_Wait
Sys_Message_Wait=CREATEOBJECT("mess_form")
Sys_Message_Wait.Show()
INKEY(0.1,"H")
RETURN
**************************************************
DEFINE CLASS mess_form AS form
Height = 64
Width = 480
DoCreate = .T.
Caption = ""
ControlBox = .F.
Closable = .F.
FontSize = 11
MaxButton = .F.
MinButton = .F.
Movable = .F.
BorderStyle = 2
BackColor = RGB(255,255,240)
Name = "MESS_FORM"
ADD OBJECT con AS container WITH ;
Top = 0, ;
Left = 0, ;
Width = 480, ;
Height = 64, ;
SpecialEffect = 1, ;
BackColor = RGB(255,255,240), ;
Name = "CON"
ADD OBJECT image1 AS image WITH ;
BackStyle = 0, ;
Height = 39, ;
Left = 31, ;
Top = 14, ;
Width = 47, ;
Name = "Image1"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontSize = 11, ;
BackStyle = 0, ;
BorderStyle = 0, ;
Caption = "", ;
Height = 19, ;
Left = 104, ;
Top = 24, ;
Width = 322, ;
Name = "Label1"
PROCEDURE Init
LC_INFO = "提示信息!"
IF !EMPTY(LP_INFO)
LC_INFO = LP_INFO
ENDIF
THISFORM.CON.WIDTH = THISFORM.TEXTWIDTH(LC_INFO)+140
THISFORM.WIDTH = THISFORM.TEXTWIDTH(LC_INFO)+140
THISFORM.AUTOCENTER = .T.
THISFORM.LABEL1.CAPTION = LC_INFO
THISFORM.IMAGE1.PICTURE = "WAIT.BMP"
THISFORM.REFRESH()
ENDPROC
ENDDEFINE
|
本类阅读TOP10