首页 > 代码库 > 使用 IntraWeb (23) - 基本控件之 TIWTimer、TIWProgressBar、TIWProgressIndicator、TIWTimeEdit

使用 IntraWeb (23) - 基本控件之 TIWTimer、TIWProgressBar、TIWProgressIndicator、TIWTimeEdit


TIWTimer             //和 TTimer 没多大区别, 它的默认事件现在是异步的(OnAsyncTimer), 在网络上使用 OnTimer 肯定是非常糟糕的TIWProgressBar       //进度条TIWProgressIndicator //进度提示器; 这是个新东西, 非常好; 当碰到时间较长的加载时(同步或异步)都可以用用; 使用前需要先关联到窗体的 ProgressIndicator 属性TIWTimeEdit          //个人认为这个东西一点用也没有; 只是给个分钟数按 8 小时换算成天、周之类, 如果需要还不如写个函数.


TIWTimer 所在单元及继承链:
IWCompExtCtrls.TIWTimer < TIWBaseHTML40Component < TIWBaseHTMLComponent < TIWBaseComponent < TComponent < TPersistent < TObject

主要成员:
property Interval: Integer //property Enabled: Boolean  //property OnTimer: TNotifyEvent       //property OnAsyncTimer: TIWAsyncEvent //



TIWProgressBar 所在单元及继承链:
IWCompProgressBar.TIWProgressBar < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:
property BGColor: TIWColor //底色property Color: TIWColor   //进度色property Percent: Integer  //当前进度(0-100)property ShowText: Boolean //是否显示进度比例文本property Font: TIWFont     //


测试:
{在窗体上放 IWTimer1、TIWProgressBar1}procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWProgressBar1.ShowText := True;  IWProgressBar1.Color := $0000FF;  IWProgressBar1.Font.Color := $FFFFFF;end;procedure TIWForm1.IWTimer1AsyncTimer(Sender: TObject; EventParams: TStringList);begin  IWProgressBar1.Percent := IWProgressBar1.Percent + 10;  if IWProgressBar1.Percent >= 100 then IWTimer1.Enabled := False;end;




TIWProgressIndicator 所在单元及继承链:
IWCompProgressIndicator.TIWProgressIndicator < TComponent < TPersistent < TObject

主要成员:
property Css: string  //这个弹出的等待窗口其实就是一个包含这 Table 的 Div, 可通过 Css 或下面几个属性弄得好看一点property BGColor: TIWColor  //property BoxColor: TIWColor //property BoxBorderColor: TIWColor //property BoxBorderWidth: Integer  //property Opacity: Integer //透明度(0-100); 但等待窗口弹出时, 整个页面会有一个透明的遮罩层 property Mode: TIWProgressIndicatorMode	//有效模式: pimAsync(异步)、pimSync(同步,默认)、pimBoth(两者都用)property BoxVisible: Boolean   //是否以窗口的形式呈现; 默认 Trueproperty ImageVisible: Boolean //是否显示 Loading 动画图片; 默认 Trueproperty UserDefined: Boolean  //是否禁用; 默认 Falseproperty PreScript: TStrings       //property PostScript: TStrings	   //property PreAsyncScript: TStrings  //property PostAsyncScript: TStrings //property ProgressTextSettings: TIWProgressTextSettings //提示文本相关设置property RenderTag: TIWHTMLTag //function Render: string	//Render 方法和 RenderTag 属性应该老控件没有的; 在调试时它们还是有点用的


测试:
{在窗体上放 IWProgressIndicator1 和两个按钮}procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  Self.ProgressIndicator := IWProgressIndicator1; //关联到 IWProgressIndicator1  IWProgressIndicator1.Mode := pimBoth;           //让同步异步都有进度提示  IWProgressIndicator1.ProgressTextSettings.Text := ‘正在载入...‘;  IWProgressIndicator1.ProgressTextSettings.Font.Color := clWebGreen;end;{同步事件}procedure TIWForm1.IWButton1Click(Sender: TObject);begin  Sleep(3000); //等待 3 秒, 用于测试end;{异步事件}procedure TIWForm1.IWButton2AsyncClick(Sender: TObject; EventParams: TStringList);begin  Sleep(3000);end;