Скачать: CL | DM;

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

← →
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]

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

---

← →
Maverick ©   (2005-10-07 11:29) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c