Показать сообщение отдельно
  #3  
Старый 29.07.2011, 20:47
Terra Terra вне форума
Прохожий
 
Регистрация: 29.07.2011
Сообщения: 21
Репутация: 10
По умолчанию

в 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: пользуемся тегами!!!
Ответить с цитированием