about.~pas
资源名称:万家福超市管理系统.rar [点击查看]
上传用户:bjkrmsxy
上传日期:2010-01-31
资源大小:9004k
文件大小:1k
源码类别:
百货/超市行业
开发平台:
Delphi
- unit about;
- interface
- uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
- Buttons, ExtCtrls;
- type
- TAboutBox = class(TForm)
- Panel1: TPanel;
- ProgramIcon: TImage;
- ProductName: TLabel;
- Version: TLabel;
- Copyright: TLabel;
- Comments: TLabel;
- OKButton: TButton;
- procedure OKButtonClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- AboutBox: TAboutBox;
- implementation
- {$R *.dfm}
- procedure TAboutBox.OKButtonClick(Sender: TObject);
- begin
- close;
- end;
- end.