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

← →
Maverick © (2005-10-07 11:03) [0]

Привет всем.

Собственно сабж. в инете нашел (http://delphiworld.narod.ru/base/save_users_options.html) ниже приведенный код и он нормально работает, но..ни как не пойму а как сделать тоже самое но для главной формы?

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;

← →
TUser © (2005-10-07 11:26) [1]

Для главной этот код прекрасно работает.

да, я тока что разобрался :)

надо конструктор объявлять так
....
public
constructor Create(AOwner: TComponent); override;
.....
что то сразу не сообразил :)

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