uni_aboutbox.pas

来自「转发器」· PAS 代码 · 共 46 行

unit Uni_AboutBox;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
    Buttons, ExtCtrls;

type
    TAboutBox = class(TForm)
        Panel1: TPanel;
        ProgramIcon: TImage;
        ProductName: TLabel;
        Version: TLabel;
        Producer: TLabel;
        Phone: TLabel;
        OKButton: TButton;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        procedure FormCreate(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    AboutBox: TAboutBox;

implementation
uses Uni_Switch;
{$R *.dfm}

procedure TAboutBox.FormCreate(Sender: TObject);
begin
    Label1.Caption := 'POS转发器';
    Label2.Caption := gsVerion;
    Label3.Caption := gsWriter;
    Label4.Caption := gsPhone;
end;

end.