如何用弹出窗口显示进度 - 回复嘿嘿嘿的问题

问题来源: http://www.cnblogs.com/del/archive/2010/01/08/1642072.html#1820853

准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件.

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Timer1: TTimer;procedure Button1Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses Gauges;var Gauge1: TGauge;procedure TForm1.Button1Click(Sender: TObject);
varfrm: TForm;
beginfrm := TForm.Create(nil);frm.BorderStyle := bsSizeToolWin;frm.Width := 300;frm.Height := 80;frm.Position := poDesktopCenter;Gauge1 := TGauge.Create(frm);Gauge1.MinValue := 0;Gauge1.MaxValue := 100;Gauge1.Width := frm.ClientWidth - 40;Gauge1.Height := 20;Gauge1.Left := 20;Gauge1.Top := (frm.ClientHeight - Gauge1.Height) div 2;Gauge1.Parent := frm;Timer1.Interval := 100;Timer1.Enabled := True;frm.ShowModal;frm.Free;Timer1.Enabled := False;
end;procedure TForm1.Timer1Timer(Sender: TObject);
beginif Assigned(Gauge1) thenbeginGauge1.Progress := Gauge1.Progress + 1;if Gauge1.Progress = Gauge1.MaxValue then TForm(Gauge1.Parent).ModalResult := 1;end;
end;end.

运行效果图:

如何用弹出窗口显示进度 - 回复嘿嘿嘿的问题相关推荐

想让JS弹出窗口显示在第二个(辅助)显示器上？
这是一个头疼的事情,毕竟第二个显示器技术的应用也就这几年的事. 弹出窗口的小事情多年前,被做烂的弹窗,逼得各大浏览器纷纷出手,直接block掉多次弹窗,避免疯狂弹窗对用户的一万点暴击! 因此使用弹窗 ...
SAP Spartacus B2B 页面信息提示图标的弹出窗口显示实现逻辑
这个弹出窗口的技术实现,通过SAP Spartacus 自定义的popover Component实现而成: 注意,当我刚接触Angular时,误以为下图标号为1的a标签,和标号为2的自定义标签cx- ...
弹出窗口显示输出内容_PCB生产文件输出流程
在使用AD设计完PCB后,我们还需要通过AD生成一些生产文件,以提供给工程人员.采购人员.制板厂.装配厂等,让我们的设计得到实现.生产文件的输出主要包含以下几个步骤(这里以我设计的工程100CH为例子 ...
弹出窗口显示输出内容_前端加油站（3）-JavaScript 输出
一些想入行IT的小伙伴,对一些IT基础知识方面的都不是很了解,在接下来的一段时间里,L君会慢慢的跟大家分享一些关于IT专业方向的知识. 大家抓紧时间上车了!这是一趟开往知识海洋的火车~~~ JavaS ...
计算机内存不能为read,电脑弹出窗口显示该内存不能为read的两种解决方法
相信大多数朋友都遇到过电脑弹出内存不能为read的提示,这个问题不解决的话,在使用的时候也会非常麻烦.有时可能只是偶尔出现,这是正常的,但过于频繁的出现,就一定要去查查深层次的原因了.内存是主板上的存 ...
IE弹出窗口显示URL地址栏
工具-->Internet 选项-->安全-->自定义级别-->允许网站打开没有地址栏或状态栏的窗口-->禁止
html语言arc属性,为要素图层设置 HTML 弹出窗口属性
ArcGIS 中的许多地图图层都可用于访问要素的丰富的属性及其他信息.一种机制是,单击每个要素时显示一个 HTML 弹出窗口.这就潜在地提供了一种有效的方法来共享每个要素的 HTML 格式的信息(例如 ...
弹出窗口与选择器（二）
9.2 ProgressMonitor类 ProgressMonitor类用来报告需要一段时间完成的任务的状态.这个类是一个特殊的Swing类,他并不是一个GUI组件,也不是一个选项面板或是JavaB ...
如何控制弹出窗口的大小、尺寸、位置等的样式
原文地址:http://www.leadto.com.cn/technews/316.html 1.最基本的弹出窗口代码 <SCRIPT LANGUAGE="javascript&qu ...
如何在WordPress中创建优惠券弹出窗口（逐步）
Do you want to create a coupon popup in WordPress? Coupon popups are a great way to convert your web ...

如何用弹出窗口显示进度 - 回复嘿嘿嘿的问题

如何用弹出窗口显示进度 - 回复嘿嘿嘿的问题相关推荐

最新文章

热门文章

如何用弹出窗口显示进度 - 回复 嘿嘿嘿 的问题

如何用弹出窗口显示进度 - 回复 嘿嘿嘿 的问题相关推荐

最新文章

热门文章

如何用弹出窗口显示进度 - 回复嘿嘿嘿的问题

如何用弹出窗口显示进度 - 回复嘿嘿嘿的问题相关推荐