Делфи игра крестики нолики

    end;

 

if (Panel7.BevelInner=bvLowered) and (Panel5.BevelInner=bvLowered) and (Panel6.BevelInner=bvLowered) then

  if (Panel5.Caption=Panel6.Caption) and (Panel5.Caption=Panel7.Caption)

   then

    begin

     Form3.Label1.Caption:=Form1.Panel5.Caption;

     Form3.ShowModal;

     clean;

    end;

 

  if (Panel9.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) then

  if (Panel8.Caption=Panel9.Caption) and (Panel8.Caption=Panel10.Caption)

   then

begin

     Form3.Label1.Caption:=Form1.Panel10.Caption;

     Form3.ShowModal;

     clean;

    end;

 

  if (Panel5.BevelInner=bvLowered) and (Panel2.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) then

  if (Panel2.Caption=Panel5.Caption) and (Panel2.Caption=Panel8.Caption)

   then

 

 

 

    begin

     Form3.Label1.Caption:=Form1.Panel2.Caption;

     Form3.ShowModal;

     clean;

    end;

 

  if (Panel9.BevelInner=bvLowered) and (Panel3.BevelInner=bvLowered) and (Panel6.BevelInner=bvLowered) then

  if (Panel6.Caption=Panel3.Caption) and (Panel6.Caption=Panel9.Caption)

   then

    begin

     Form3.Label1.Caption:=Form1.Panel3.Caption;

     Form3.ShowModal;

     clean;

    end;

 

  if (Panel4.BevelInner=bvLowered) and (Panel7.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered) then

  if (Panel4.Caption=Panel7.Caption) and (Panel10.Caption=Panel4.Caption)

   then

    begin

     Form3.Label1.Caption:=Form1.Panel4.Caption;

     Form3.ShowModal;

     clean;

    end;

 

 

 

  if (Panel6.BevelInner=bvLowered) and (Panel2.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered) then

  if (Panel2.Caption=Panel6.Caption) and (Panel2.Caption=Panel10.Caption)

   then

    begin

     Form3.Label1.Caption:=Form1.Panel2.Caption;

     Form3.ShowModal;

     clean;

    end;

if (Panel6.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) and (Panel4.BevelInner=bvLowered) then

  if (Panel4.Caption=Panel6.Caption) and (Panel8.Caption=Panel4.Caption)

 

   then

    begin

     Form3.Label1.Caption:=Form1.Panel4.Caption;

     Form3.ShowModal;

     clean;

    end;

except;

end;

 

if (Panel2.BevelInner=bvLowered) and (Panel3.BevelInner=bvLowered) and (Panel4.BevelInner=bvLowered) and (Panel5.BevelInner=bvLowered) and (Panel6.BevelInner=bvLowered) and (Panel7.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) and (Panel9.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered)

  then

   begin

    Form1.Timer1.Enabled:=False;

    ShowMessage ('Ничья, попробуйте ещё раз!');

    clean;

   end;

end;

 

procedure TForm1.NewMenuItemClick(Sender: TObject);

begin

clean;                                                           // Очистка игрового поля для новой игры

end;

 

procedure TForm1.FormCreate(Sender: TObject);

 var

  l:DWORD;                                                  // Процедура блокировки кнопки "Развернуть"

begin

l:=GetWindowLong(Self.Handle,GWL_STYLE);

l:=l and not(WS_MAXIMIZEBOX);

l:=SetWindowLong(Self.Handle,GWL_STYLE,l);

end;

 

procedure TForm1.N4Click(Sender: TObject);

begin

 

Close;                                                           // Выход из программы

end;

 

end.

unit Unit2;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

type

  TForm2 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label3: TLabel;

    Label2: TLabel;

    Label4: TLabel;

    procedure Image1Click(Sender: TObject);

    procedure Label1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

    procedure Label4Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

Implementation

 

{$R *.dfm}

 

procedure TForm2.Image1Click(Sender: TObject);

begin

Close;                                                                    // Закрытие окна при нажатии на него

end;

 

 

 

procedure TForm2.Label1Click(Sender: TObject);

begin

 

Close;

end;

procedure TForm2.Label2Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm2.Label3Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.Label4Click(Sender: TObject);

begin

Close;

end;

 

end.

 

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, jpeg;

 

type

  TForm3 = class(TForm)

    Image1: TImage;

    Label3: TLabel;

    Label2: TLabel;

    Label1: TLabel;

    procedure FormShow(Sender: TObject);

    procedure Image1Click(Sender: TObject);

    procedure Label1Click(Sender: TObject);

    procedure Label2Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

 

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

Implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm3.FormShow(Sender: TObject);

begin

Form1.Timer1.Enabled:=False;                                        // Выключаем таймер

end;

 

procedure TForm3.Image1Click(Sender: TObject);

begin

Close;                                                                                // Закрытие окна при нажатии на него

end;

 

procedure TForm3.Label1Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm3.Label2Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm3.Label3Click(Sender: TObject);

begin

Close;

end;

end.