[Anatoluu]

, то на 4-ом появлялся текст.

На фотографии то что я хочу сделать я уже сделал крестики нолики при нажатии на кнопку в верхнем квадратике появляется соответствующий символ.При нажатии на нижний всё очищается.

Как сделать так чтобы когда было например 3-и крестика вряд то сверху ( Добавлю ещё один label ) Появлялась надпись что то вроде " Крестики победили " ?

[Dux]

Помещаете на форму компонент TTimer. В обработчике событий OnTimer записываете

Код:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
if (Label1.Caption=Label2.Caption) and (Label1.Caption=Label3.Caption) then Label4.Caption:='Ваш текст';
end;

[Anatoluu]

1) Текст появляется сразу только когда запускаю программку
2) как сделать отдельно для крестиков и для ноликов ?

[eXplorer]

Код:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
if (label1.caption='X') and (label2.caption='X') and (label3.caption='X')
then
label4.caption:='текст';
end;

аналогично для ноликов
извиняюсь конечно... но основы delphi знать надо...

[Anatoluu]

А как сделать чтобы когда я нажимал кнопочку " начать заного " то надпись сверху стиралась ?

[eXplorer]

В обработчике события кнопки (OnClick):

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
label4.caption:='';
end;

ну или какой там у тебя label я незнаю...

[eXplorer]

Советую прочитать книжку и основы изучить

[Anatoluu]

Сообщение от eXplorer

В обработчике события кнопки (OnClick):

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
label4.caption:='';
end;

ну или какой там у тебя label я незнаю...

Спасибо, хотя хз зачем спрашивал, так как я сам знаю как это сделать ) Неподумал чет : D

Вот что получилось

[Assistant]

"Начать заноГо"

[eXplorer]

да уж...
было бы удобней тебе сделать сразу щёлкать по черным полям без этих всех кнопок и ещё недочет такой... любой из игроков может делать по несколько ходов...
тогда уж. если ходит игрок1 блокируй кнопки игрока2 и наоборот
ну а кнопочка "Начать заного" мне тоже нравиться её оставь )))))

[AND_REY]

Не сдержался :
XO.rar

[Страдалецъ]

Мне вот любопытно, в класических крестиках-ноликах 8 вариантов победы одной из сторон, вы их все так и расписали?

Код:

if (Label1.Caption=Label2.Caption) and (Label1.Caption=Label3.Caption) then Label4.Caption:='Ваш текст';