cx_hint_nothread.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 64 行

unit cx_hint_nothread;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  Tcx_hint_nothread_frm = class(TForm)
    Animate1: TAnimate;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cx_hint_nothread_frm: Tcx_hint_nothread_frm;

implementation

var
    i:integer=0;
{$R *.dfm}

procedure Tcx_hint_nothread_frm.Timer1Timer(Sender: TObject);
begin
if i<3 then
begin
    //Randomize;
    //self.Label1.Font.Color:=RGB(random(255),random(255),random(255));
    self.Label1.Caption:=self.Label1.Caption+'。';
    inc(i);
end
else
begin
    self.Label1.Caption:='正在查询数据，请稍后';
    i:=0;
end;
    //self.Label1.Caption:=self.Label1.Caption+'。';
    //self.Label1.Caption:=self.Label1.Caption+'。';
end;

procedure Tcx_hint_nothread_frm.FormCreate(Sender: TObject);
//var
    //i_str:WideString;
begin
    self.Animate1.FileName:=ExtractFilePath(paramstr(0))+'bmp\FINDCOMP.AVI';

    self.Animate1.Active:=True;
    //self.Label1.Refresh;
    //Inc(i);
    //i_str:=IntToStr(i);
    //self.Label1.Caption:=i_str;
    //self.Label1.Refresh;
end;

end.