unit1.~pas

delphi制作的点灯游戏

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    Panel19: TPanel;
    Panel20: TPanel;
    Panel21: TPanel;
    Panel22: TPanel;
    Panel23: TPanel;
    Panel24: TPanel;
    Panel25: TPanel;
    SkinData1: TSkinData;
    procedure FormCreate(Sender: TObject);
    procedure change(i:integer);
    function win:boolean;
    procedure Panel9Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  varpan:array[1..25] of tpanel;
  boon:array[1..25] of boolean;

implementation

{$R *.dfm}

function tform1.win:boolean;
var
  i:integer;
begin
  result:=true;
  for i:=1 to 25 do
  begin
    if not boon[i] then
    result:=false;
  end;  

end;

procedure tform1.change(i:integer);
//var
  //i:integer;
begin
  boon[i]:=not boon[i];
  if boon[i] then
  varpan[i].Color:=clblack
  else
  varpan[i].Color:=clwhite;
end;  

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
application.MessageBox('感谢盒子提供交流空间!','作者:农民 QQ:1189984',MB_OK);
varpan[1]:=panel1;
varpan[2]:=panel2;
varpan[3]:=panel3;
varpan[4]:=panel4;
varpan[5]:=panel5;
varpan[6]:=panel6;
varpan[7]:=panel7;
varpan[8]:=panel8;
varpan[9]:=panel9;
varpan[10]:=panel10;
varpan[11]:=panel11;
varpan[12]:=panel12;
varpan[13]:=panel13;
varpan[14]:=panel14;
varpan[15]:=panel15;
varpan[16]:=panel16;
varpan[17]:=panel17;
varpan[18]:=panel18;
varpan[19]:=panel19;
varpan[20]:=panel20;
varpan[21]:=panel21;
varpan[22]:=panel22;
varpan[23]:=panel23;
varpan[24]:=panel24;
varpan[25]:=panel25;

for i:=1 to 25 do
begin
  varpan[i].Tag:=i;
  boon[i]:=false;

end;
end;

procedure TForm1.Panel9Click(Sender: TObject);
var
  i:integer;
begin
  i:=tpanel(sender).Tag;
  change(i);
  if i>5 then change(i-5);
  if i<21 then change(i+5);
  if (i mod 5) <> 0 then change(i+1);
  if (i mod 5) <> 1 then change(i-1);
  if win then application.MessageBox(' 胜利:)','恭喜',MB_OK);
end;

end.