Сохранение пользовательских настроек

Советы » Ресурсы(RES-файлы) » Сохранение пользовательских настроек

...и я хотел бы новые пользовательские цвета записывать на место старых, записываемых Delphi в файл ресурса, чтобы при следующем открытии формы, она автоматически сама отображала бы новую цветовую схему.

Вы можете легко это сделать, передавая форму при закрытии в поток для записи ее в отдельный файл. Затем, когда это создано, проверяйте наличие файла и организуйте его чтение. Вот как можно это сделать:

const

FileName = 'Form1.stm'; constructor

TForm1.Create(AOwner: TComponent); begin

if

FileExists(FileName) then

begin

CreateNew(AOwner); ReadComponentResFile(FileName, Self); end

else

inherited

Create(AOwner); { поместите здесь код в стиле 'OnCreate' } end

; procedure

TForm1.FormDestroy(Sender: TObject); begin

WriteComponentResFile(FileName, Self); end

;

Имейте в виду, что это не вызывает OnCreate. В действительности, вам OnCreate и не нужен, поскольку сюда вы можете поместить код, необходимый в обработчике OnCreate; данный код следует поместить после конструктора Create, как и указано в комментарии.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com