unit3.pas

这个软件是用Delphi 7开发的。 原本它是两个人在纸面上玩的益智游戏

unit Unit3;

interface
{ *********************************************************************** }
{ 打飞机V1.0人机对奕版  关于窗口                                          }
{                                                                         }
{
作者:wqy
QQ:466798985
E-Mail:[e-mail]
你可以随意传播该源码，但请保证源码完整以及该文件头的存在
}
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type
   TForm3 = class(TForm)
      btnOK: TButton;
      PageControl1: TPageControl;
      TabSheet1: TTabSheet;
      TabSheet2: TTabSheet;
      Label1: TLabel;
      CheckBox1: TCheckBox;
      TabSheet3: TTabSheet;
      Memo2: TMemo;
      Memo3: TMemo;
      TabSheet4: TTabSheet;
      Memo4: TMemo;
      TabSheet5: TTabSheet;
      Image1: TImage;
      Memo1: TMemo;
      Memo5: TMemo;
      procedure btnOKClick(Sender: TObject);
      procedure CheckBox1Click(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   Form3: TForm3;

implementation
uses unit1;
{$R *.dfm}

procedure TForm3.btnOKClick(Sender: TObject);
begin
   form3.Hide;
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
   in_ShowOnStart := CheckBox1.Checked;
end;

end.