![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение пользовательских настроек [D7, WinXP]
Maverick © (2005-10-07 11:03:00)Привет всем.
Собственно сабж. в инете нашел ( 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;
Maverick (2005-10-07 11:29:00) [1]да, я тока что разобрался :)
надо конструктор объявлять так
....
public
constructor Create(AOwner: TComponent); override;
.....
что то сразу не сообразил :)
TUser (2005-10-07 11:26:00) [2]Для главной этот код прекрасно работает.