等待提示窗口

类别:数据库 点击:0 评论:0 推荐:

*// 使用:
*// 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

本文地址:http://com.8s8s.com/it/it21519.htm