unit5.pas

用于开发税务票据管理的软件

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Label2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.DFM}

procedure TForm5.FormCreate(Sender: TObject);
begin
label1.Caption:='Alex Izmukhambetov,'+#10#13+
                '22 years,'+#10#13+
                'Bachelor of International Relations,'+#10#13+
                'DP Consultant for "MACRO Int."';//+#10#13+
//                '[e-mail]';
label2.Caption:='[e-mail]';

label2.Top:=label1.Height;

form5.Clientwidth:=label1.Width;
form5.Clientheight:=label2.top+label2.height;
form5.Left:=(screen.width-form5.width) div 2;
form5.Top:=(screen.height-form5.height) div 2;

end;

procedure TForm5.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) or (key=#27) or (key=#32) then close;
end;

procedure TForm5.Label2Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow, 'open', 'mailto:[e-mail]', nil, nil, 0);
end;

procedure TForm5.Label1Click(Sender: TObject);
begin
close;
end;

end.