0

世界中のスコアをチェックするために、インターネット接続を使用して Tic Tac Toe ゲームを開発しています。も追加したので、ユーザーはグリッドとグリッド内ColorDialogで自分の色を選択できます。例としてこれらの 2 つの画像を見てください。XO

  1. pic1
  2. pic2

この機能を追加することを考えました: ユーザーが [編集] をクリックしてから [グリッド アイテムの色] (上記の TMenu から) をクリックすると、次にMessageDialogプログラムを実行するときに、この色を再度使用するか、デフォルト (黒) を使用するかを尋ねるメッセージが表示されます。次のコードを書きました。

procedure TfrMain.MenuItem10Click(Sender: TObject);
begin
 if (MessageDlg('Set this color as default? Next time you play or you open the program, you will use this color. [Yes=OK||Cancel=NO]',
   mtConfirmation,mbOKCancel,0) = mrCancel) then
   begin
    if ColorDialog1.Execute then
      for i:= 0 to 8 do
      begin
       (FindComponent('lblcell'+IntToStr(i)) as TLabel).Font.Color := ColorDialog1.Color;
      end;
    end
  else
    begin
     //saves the color somewhere, when the program will run again, it will load this color
    end;
end;

押すCancelと ColorDialog が表示され、色を設定します。私の問題は、選択した色を保存して、プログラムが再び実行されたときにロードする方法がわからないことです。このプログラムは、その内容を のフォルダにも保存するC:\tictactoe8ので、ここに色設定を含むテキスト ファイルを保存し、TForm1 の OnCreate イベントを介してロードすることを考えました。ところで、私はこれを行う方法がよくわからないのですが、アドバイスをいただけますか?

4

1 に答える 1