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