u_info.pas

来自「中控800型号考勤机的自动采集数据程序。能够手动采集」· PAS 代码 · 共 38 行

unit u_Info;

interface

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

type
  Tfrm_Info = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RefreshInfo(aMsg:string);
    procedure CloseInfo;
  end;

var
  frm_Info: Tfrm_Info;

implementation

{$R *.dfm}
procedure Tfrm_Info.CloseInfo;
begin
 Frm_Info.Hide;
end;
procedure Tfrm_Info.RefreshInfo(aMsg:string);
begin
 if not Frm_info.Showing then Frm_info.Show;
 Frm_info.Label1.Caption := aMsg;
 Frm_info.Update;
end;
end.