about.~pas
上传用户:bjkrmsxy
上传日期:2010-01-31
资源大小:9004k
文件大小:1k
源码类别:

百货/超市行业

开发平台:

Delphi

  1. unit about;
  2. interface
  3. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  4.   Buttons, ExtCtrls;
  5. type
  6.   TAboutBox = class(TForm)
  7.     Panel1: TPanel;
  8.     ProgramIcon: TImage;
  9.     ProductName: TLabel;
  10.     Version: TLabel;
  11.     Copyright: TLabel;
  12.     Comments: TLabel;
  13.     OKButton: TButton;
  14.     procedure OKButtonClick(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20. var
  21.   AboutBox: TAboutBox;
  22. implementation
  23. {$R *.dfm}
  24. procedure TAboutBox.OKButtonClick(Sender: TObject);
  25. begin
  26. close;
  27. end;
  28. end.
  29.