Самостоятельная работа

Begin

Begin

Begin

Begin

End

Begin

Begin

Begin

Begin

if key=chr(13) then

begin

showmessage (edit1.text+’, вы играете Х’);

edit2.setfocus;

end;

Ввод имени второго игрока

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

if key=chr(13) then

showmessage (edit2.text+’. вы играете О’);

end;

При щелчке по кнопке В1 ставится «Х» или «O» в зависимости от доступности кнопок B10 или B11. После этого кнопка B1 становится не доступной для предотвращения повторного нажатия.

procedure TForm1.b1Click(Sender: TObject);

if b10.enabled=true then

b1.caption:='x';

b1.enabled:=false;

b10.enabled:=false;

b11.enabled:=true;

else

if b11.enabled=true then

b1.caption:='o';

b1.enabled:=false

b11.enabled:=false;

b10.enabled:=true;

end;

{проверяем возможный выигрыш}

if (b1.caption='x') and (b2.caption='x') and (b3.caption='x') or (b1.caption='x') and (b5.caption='x') and b9.caption='x') or (b1.caption='x') and (b4.caption='x') and (b7.caption='x') then

showmessage (edit1.text+', вы выйграли');

if (b1.caption='o') and (b2.caption='o') and (b3.caption='o') or (b1.caption='o') and (b5.caption='o') and (b9.caption='o') or (b1.caption='o') and (b4.caption='o') and (b7.caption='o') then

showmessage (edit2.text +', вы выйграли')

else

if (b1.caption<>'') and (b2.caption<>'') and (b3.caption<>'') and (b4.caption<>'') and (b5.caption<>'') and (b6.caption<>'') and (b7.caption<>'') and (b8.caption<>'') and (b9.caption<>'')

then

showmessage ('Ничья');

end;

Обработайте ходы остальными кнопками

Новая игра

procedure TForm1.N3Click(Sender: TObject);

b1.caption:='';

b2.caption:='';

b3.caption:='';

b4.caption:='';

b5.caption:='';

b6.caption:='';

b7.caption:='';

b8.caption:='';

b9.caption:='';

end;

Определяем первый ход:

Событие OnClick на пункт меню Игра/Первый ход/Крестик

procedure TForm1.N4Click(Sender: TObject);

n4.checked:=true;

n5.Checked:=false;

b10.enabled:=true;

b11.enabled:=false;

end;

Событие OnClick на пункт меню Игра/Первый ход/Нолик

procedure TForm1.N5Click(Sender: TObject);

n4.checked:=false;

n5.Checked:=true;

b10.enabled:=false;

b11.enabled:=true;

end;

Пункты «О программе» и «Справка» опишите самостоятельно;

Создайте миниредактор текста, через главное меню которого можно выполнить следующие операции: изменить цвет шрифта на красный или синий, изменить размер шрифта на 10, 14 или 20, а также вырезать, скопировать и вставить блок выделенного текста.

Глава XII. Использование переключателей.

Переключатели (флажки) позволяют выбрать какое-либо значение из определенного множества. Они могут находиться во включенном (установленном) и выключенном (сброшенном) состояниях. Для работы с переключателями в Delphi имеются компоненты

§ CheckBox (независимые переключатели);

§ RadioButton (зависимые переключатели);

§ RadioGroup (группа зависимых переключателей);

Для определения состояния флажка используется свойство Checked типа Boolean. По умолчанию оно False.

Дата добавления: 2015-05-09