Subversion Repositories stackman

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit about;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls,
  7.   jpeg;
  8.  
  9. type
  10.   TAboutBox = class(TForm)
  11.     Panel1: TPanel;
  12.     OKButton: TButton;
  13.     ProgramIcon: TImage;
  14.     ProductName: TLabel;
  15.     Version: TLabel;
  16.     Copyright: TLabel;
  17.     Comments: TLabel;
  18.     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  19.   end;
  20.  
  21. var
  22.   AboutBox: TAboutBox;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28. procedure TAboutBox.FormKeyDown(Sender: TObject; var Key: Word;
  29.   Shift: TShiftState);
  30. begin
  31.   if Key = VK_ESCAPE then
  32.   begin
  33.     Close;
  34.   end;
  35. end;
  36.  
  37. end.
  38.  
  39.