*// 使用: *// 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
没有相关教程
|