unit6.pas

3d snake 游戏编程源码

unit Unit6;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, Buttons;

type
   TfrmAbout = class(TForm)
      Image1: TImage;
      SpeedButton1: TSpeedButton;
      Memo1: TMemo;
      Label1: TLabel;
      procedure SpeedButton1Click(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   frmAbout: TfrmAbout;

implementation

{$R *.dfm}

procedure TfrmAbout.SpeedButton1Click(Sender: TObject);
begin
   close;
end;

end.