unit5.pas

3d snake 游戏编程源码

unit Unit5;

interface

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

type
   TfrmScriptView = class(TForm)
      Memo1: TMemo;
      Label1: TLabel;
      Edit1: TEdit;
      btnOk: TSpeedButton;
      procedure btnOkClick(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   frmScriptView: TfrmScriptView;

implementation

{$R *.dfm}

procedure TfrmScriptView.btnOkClick(Sender: TObject);
begin
   Close;
end;

end.