*// 使用:*// WaitWindows("这是一个提示")*// 可以反复调用，如WaitWindows("这是提示1")、WaitWindows("这是提示2")
*// 清除:*// WaitWindows()
*//------------------------------*// 登待窗口*//------------------------------FUNCTION WaitWindowsPARAMETERS PP_INFO
IF EMPTY(PP_INFO) RELEASE Sys_Message_Wait RETURNENDIF
PUBLIC LP_INIFOLP_INFO = PP_INFO
PUBLIC Sys_Message_WaitSys_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() ENDPROCENDDEFINE
