Note: a player can click on the btnNewGame button after the game is finished (bGameOver = True) or during a game (bGameOver = False). Because of that it would be nice to ask the user to confirm his decision.

In this particular case there would be negligible damage or there would be no damage at all. Just remember that good programming practice implicate getting the user's confirmation.

Double click the btnNewGame button to create and add the code for the New Game option:

procedure TfrMain.btnNewGameClick(Sender: TObject);
begin
 if bGameOver = False then
 begin
  if MessageDlg(
      'End the current game?', 
      mtConfirmation, 
      mbOKCancel,0) = mrCancel then Exit;
 end;

 InitPlayGround;
end;

Note: if you are using a Non English Delphi version and want to have dialog buttons and messages on your local language, explore the article: "The fastest path to Delphi localization".

Reseting the Scoreboard

The task is simple: set iXScore and iOScore values to zero, and update lblXScore.Caption and lblOScore.Caption.

Off course, get the user's confirmation first.

procedure TfrMain.btnResetScoreClick(Sender: TObject);
begin
 if MessageDlg(
   'Reset the scores?',
   mtConfirmation,
   mbOKCancel,0) = mrCancel then Exit;

 iXScore := 0;
 iOScore := 0;
 lblXScore.Caption := IntToStr(iXScore);
 lblOScore.Caption := IntToStr(iOScore);
end;

Some exercises for you...

If we have a winner and the winner has occupied the middle row, the CheckWin will retun 2.
Your excersise (for this chapter) is to create a new function to mark (in any way you want) a victory on a playfied. For example, you could change the background color for the three labels making the wining combination. Or, draw an ellipse arround the cells, it's up to you... ;)

Anyway be sure to see the full Tic Tac Toe game code.

   To the next chapter: A Beginner's Guide to Delphi Programming
This is the end of the tenth chapter, in the next chapter, we'll deal with creating your first MDI (multiple document interface) application.

If you need any kind of help at this point, please post to the Delphi Programming Forum where all the questions are answered and beginners are treated as experts.

First page > Preparing the Game GUI > Page 1, 2, 3, 4