о стиль панелі на начальний.Panel2.Caption:= raquo ;;// Прибираємо заголовок панелі
Form1.Panel3.BevelInner:=bvNone;.Panel3.Caption:=laquo;raquo;;.Panel4.BevelInner:=bvNone;.Panel4.Caption:=laquo;raquo;;.Panel5.BevelInner:=bvNone;.Panel5.Caption:=laquo;raquo;;.Panel6.BevelInner:=bvNone;.Panel6.Caption:=laquo;raquo;;.Panel7.BevelInner:=bvNone;.Panel7.Caption:=laquo;raquo;;.Panel8.BevelInner:=bvNone;.Panel8.Caption:=laquo;raquo;;.Panel9.BevelInner:=bvNone;.Panel9.Caption:=laquo;raquo;;.Panel10.BevelInner:=bvNone;.Panel10.Caption:=laquo;raquo;;.Tag:=0;.Timer1.Enabled:=true;// Відновлюємо роботу таймера; TForm1.AboutMenuItemClick (Sender: TObject);
begin.ShowModal;// Викликаємо вікно Про програму
end; TForm1.Panel2Click (Sender: TObject);
beginPanel2.Caption lt; gt; then exit;// Перевірка на заголовок панелі (анти-мухлеж) .BevelInner:=bvLowered;// Привласнюємо стиль при натисканні на панельForm1.Tag=0//Міняємо tag форми (для чергування X і O) .Caption:= X raquo ;;// Якщо таг=0 тоді вписуємо X
Form1.Tag:=1; .Caption:= O raquo ;;// Якщо таг=1 тоді вписуємо O.Tag:=0 ;; TForm1.Panel5Click (Sender: TObject); Panel5.Caption lt; gt; then exit;.BevelInner:=bvLowered;Form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel8Click(Sender: TObject); Panel8.Caption lt; gt; then exit;.BevelInner:=bvLowered;Form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel3Click(Sender: TObject); Panel3.Caption lt; gt; then exit;.BevelInner:=bvLowered;form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel6Click(Sender: TObject); Panel6.Caption lt; gt; then exit;.BevelInner:=bvLowered;form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel9Click(Sender: TObject); Panel9.Caption lt; gt; then exit;.BevelInner:=bvLowered;form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel4Click(Sender: TObject); Panel4.Caption lt; gt; then exit;.BevelInner:=bvLowered;Form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel7Click(Sender: TObject); Panel7.Caption lt; gt; then exit;.BevelInner:=bvLowered;Form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Panel10Click(Sender: TObject); Panel10.Caption lt; gt; then exit;.BevelInner:=bvLowered;Form1.Tag=0.Caption:=laquo;Xraquo;;.Tag:=1;.Caption:=laquo;Oraquo;;.Tag:=0;;TForm1.Timer1Timer(Sender: TObject);// Процедура перевірки на виграш;
begin//захист від непередбачених помилок
if (Panel2.BevelInner=bvLowered) and (Panel4.BevelInner=bvLowered) and (Panel3.BevelInner=bvLowered) then
//Якщо панелі натиснуті, то перевіряємо заголовки
if (Panel2.Caption=Panel3.Caption) and (Panel2.Caption=Panel4.Caption) .Label1.Caption:=Form1.Panel2.Caption;// Якщо виграшна комбінація то присвоюємо Х або О в Лейбл форми поздоровлення
Form3.ShowModal;// Відкриваємо вікно привітання : -) raquo ;;// Очищення ігрового поля;
if (Panel7.BevelInner=bvLowered) and (Panel5.BevelInner=bvLowered) and (Panel6.BevelInner=bvLowered) then (Panel5.Caption=Panel6.Caption) and (Panel5.Caption=Panel7.Caption).Label1.Caption:=Form1.Panel5.Caption;.ShowModal;;;(Panel9.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) then (Panel8.Caption=Panel9.Caption) and (Panel8.Caption=Panel10.Caption).Label1.Caption:=Form1.Panel10.Caption;.ShowModal;;;(Panel5.BevelInner=bvLowered) and (Panel2.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) then (Panel2.Caption=Panel5.Caption) and (Panel2.Caption=Panel8.Caption).Label1.Caption:=Form1.Panel2.Caption;.ShowModal;;;(Panel9.BevelInner=bvLowered) and (Panel3.BevelInner=bvLowered) and (Panel6.BevelInner=bvLowered) then (Panel6.Caption=Panel3.Caption) and (Panel6.Caption=Panel9.Caption).Label1.Caption:=Form1.Panel3.Caption;.ShowModal;;;(Panel4.BevelInner=bvLowered) and (Panel7.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered) then (Panel4.Caption=Panel7.Caption) and (Panel10.Caption=Panel4.Caption).Label1.Caption:=Form1.Panel4.Caption;.ShowModal;;;(Panel6.BevelInner=bvLowered) and (Panel2.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered) then (Panel2.Caption=Panel6.Caption) and (Panel2.Caption=Panel10.Caption).Label1.Caption:=Form1.Panel2.Caption;.ShowModal;;;(Panel6.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) and (Panel4.BevelInner=bvLowered) then (Panel4.Caption=Panel6.Caption) and (Panel8.Caption=Panel4.Caption).Label1.Caption:=Form1.Panel4.Caption;.ShowModal;;;;;TForm1.NewMenuItemClick(Sender: TObject);
begin;// Очищення ігрового поля для нової гри <...