Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранение пользовательских настроек [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]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо