世界中のスコアをチェックするために、インターネット接続を使用して Tic Tac Toe ゲームを開発しています。も追加したので、ユーザーはグリッドとグリッド内ColorDialog
で自分の色を選択できます。例としてこれらの 2 つの画像を見てください。X
O
この機能を追加することを考えました: ユーザーが [編集] をクリックしてから [グリッド アイテムの色] (上記の 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 イベントを介してロードすることを考えました。ところで、私はこれを行う方法がよくわからないのですが、アドバイスをいただけますか?