Blame |
Last modification |
View Log
| RSS feed
unit about;
interface
uses
Windows, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls,
jpeg;
type
TAboutBox = class(TForm)
Panel1: TPanel;
OKButton: TButton;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
procedure TAboutBox.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then
begin
Close;
end;
end;
end.