frmaboutpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 49 行

unit frmAboutpas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, StdCtrls, ComCtrls, Menus, ExtCtrls, jpeg, ImgList,
  UErrDisplay, ModalForm1;

type
   TfrmAbout = class(TMyModalForm1)
      Panel1: TPanel;
      Label2: TLabel;
      lbl2: TLabel;
      Label5: TLabel;
      Label6: TLabel;
      Label7: TLabel;
      lbl3: TLabel;
      lbl4: TLabel;
      lbl5: TLabel;
      Label1: TLabel;
      Label3: TLabel;
      procedure FormCreate(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   frmAbout: TfrmAbout;

implementation

uses UGlobal;

{$R *.dfm}

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
   inherited;
   lbl2.Caption := gtsyscs.sYyrjbbh;
   lbl3.Caption := gtsyscs.sAzrq;
   lbl4.Caption := gtsyscs.sSydw;
   lbl5.Caption := gtsyscs.sSyssn;
end;

end.