等待提示窗口

原创 2001年07月24日 13:42:00

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

Dev的等待提示框

用过Devexpress的用户都知道,Dev自带了默认的等待进度提示框,效果如下: 简单使用代码: WaitDialogForm sdf = new WaitDialogF...
  • lanbooli
  • lanbooli
  • 2013年10月30日 15:02
  • 2063

Qt之QProgressIndicator(等待提示框)

简述很早以前在网上看到一个纯代码实现的旋转动画感觉效果很不错,分享给大家。不得不说,条条大道通罗马,我们需要更多地创造。。。详见:QProgressIndicator简述 效果 源码 使用 更多参考效...
  • u011012932
  • u011012932
  • 2016年03月31日 19:43
  • 5883

C# 等待进度窗体实现

C#等待进度窗体实现在软件开发中我们会遇到在弹出另一个窗体前需要处理一部分内容,处理会耗时一段时间的情况。 此时我们可以写一个进度窗体在处理前显示出来,处理完成后关闭。 如这种更新检查窗体:实现1...
  • xzhh19921019
  • xzhh19921019
  • 2017年01月20日 13:42
  • 1295

提示窗口

摘自:http://www.codeproject.com/Articles/187753/Extended-CComboBox ////////// ComboBoxExt.h   #if !d...
  • ben_lbj
  • ben_lbj
  • 2014年02月25日 16:24
  • 817

气泡提示窗口

//******************************************************************//作 者:js0001//描 述:气泡信息提示 V...
  • js0001
  • js0001
  • 2009年03月19日 16:43
  • 1804

delphi XE8 Android 中使用 MessageDlg 范例

MessageDlg('你好',System.UITypes.TMsgDlgType.mtInformation,[System.UITypes.TMsgDlgbtn.mbOK],-1,nil); ...
  • xinaime
  • xinaime
  • 2015年06月19日 22:39
  • 1156

c#中弹出客户端窗口显示变量值

c#中弹出客户端窗口显示变量值:   string strTest = "显示成功"; this.Response.Write("alert('" + strTest + "');window....
  • lpc76
  • lpc76
  • 2010年11月18日 13:54
  • 602

一个加载框显示框

https://github.com/d-max/spots-dialog
  • shb2058
  • shb2058
  • 2017年04月06日 14:00
  • 454

利用autoit自动关闭指定标题窗口

 最近使用PL/SQL Developer 比较两个数据库数据差异,因部分表上没有主键,PL/SQL 就会弹出一个确认框提示某某表没有主键。因为有很多表没有不停的弹出,就得不停的点击确认,非常繁...
  • u014569459
  • u014569459
  • 2014年06月19日 21:49
  • 1260

ALT提示窗口

head>title>Untitled Documenttitle>meta http-equiv="Content-Type" content="text/html; charset=gb2312"...
  • yangtututu
  • yangtututu
  • 2006年11月05日 15:06
  • 461
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:等待提示窗口
举报原因:
原因补充:

(最多只允许输入30个字)