unit4.pas

来自「“汇华印刷v2.0”是在实践的基础上开发的一个全自动多功能信封打印系统」· PAS 代码 · 共 37 行

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, RzAnimtr, ExtCtrls, jpeg;

type
  Tabout = class(TForm)
    RzAnimator1: TRzAnimator;
    ImageList1: TImageList;
    Image1: TImage;
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about: Tabout;

implementation

uses Unit2;

{$R *.dfm}

procedure Tabout.Image1Click(Sender: TObject);
begin
sj.Show;
about.Close;
end;

end.