usobre.pas

来自「Mp3 player omly files .mp3, created in d」· PAS 代码 · 共 44 行

unit uSobre;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TextFade, ExtCtrls, AMHotSpot, StdCtrls, DrLabel;

type
  TForm2 = class(TForm)
    Image1: TImage;
    TextFader1: TTextFader;
    DRLabel2: TDRLabel;
    DRLabel3: TDRLabel;
    DRLabel1: TDRLabel;
    procedure AMHotSpot1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.AMHotSpot1Click(Sender: TObject);
begin
  Close
end;

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then Close
end;

end.