[Terra]

Добрый день!
Столкнулась с такой проблемой: есть форма1 и форма2. В форме 2 выбираю цвет для формы1. Цвет на форме1 изменяется, но вот при повторном открытии приложения цвет остается не измененным. Может кто-то подскажет как сохранить изменения? или где можно почитать? На форуме ответа не нашла . Заранее спасибо

[M.A.D.M.A.N.]

Так какбе надо сохранять в реестр или ини файл.
TRegIniFile, TIniFile.

[Terra]

в ini. Есть процедура при закрытии формы

Код:

procedureTForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Ini.WriteInteger('Form', 'Color', TForm1.color)
      finally
    Ini.Free;
  end;
end;
 и процедура 
procedure TForm1.FormShow(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Color:=Ini.ReadInteger( 'Form', 'Color', clCream);
      finally
    Ini.Free;
  end;
end;

lmikle: пользуемся тегами!!!

[M.A.D.M.A.N.]

У меня твой код работает.

[Terra]

я не знаю в ini файле у меня всегда одно и то-же число. Цвет для формы1 я выбираю в форме2 из диалога процедурой

Код:

procedure TForm4.RadioButton1Click(Sender: TObject);
var
c:Longint;
begin
if not ColorDialog1.Execute then
exit;
 C:=ColorToRGB(ColorDialog1.Color);
 Form1.Color:=c;
Repaint;
 end;

Цвет на форме1 сразу изменился, допустим на зеленый, сохраняю ini файл в форме1. Когда снова открываю приложение цвет формы1 остался прежний серый. Может где-то что-то теряю?

[angvelem]

Используй:

Код:

procedure TForm2.FormShow(Sender: TObject);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Color := Ini.ReadInteger( 'Form', 'Color', clCream);
  finally
    Ini.Free;
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini : TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Ini.WriteInteger('Form', 'Color', Color)
  finally
    Ini.Free;
  end;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
  if CD.Execute then
  begin
     Form2.Color := ColorToRGB(CD.Color);
     Repaint;
  end;
end;

[VANNIK002]

Цвет меняешь только у одной формы, или ещё есть формы, у которых меняешь цвет?