|
#1
|
|||
|
|||
Ini работа сним
Народ помогите разобраться
Код:
procedure TForm1.FormDestroy(Sender: TObject); begin ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini'); ini.WriteBool('FORM1','CheckBox2Checked',CheckBox2.Checked); ini.Free; end; Код:
procedure TForm1.FormCreate(Sender: TObject); begin ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini'); CheckBox2.Checked:=ini.ReadBool('FORM1','CheckBox2Checked',False); Ini.Free; тоесть код будет такой Код:
begin ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini'); ini.WriteBool('FORM1','CheckBox2Checked',Form2.CheckBox2.Checked); ini.Free; end; Код:
procedure TForm1.FormCreate(Sender: TObject); begin ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini'); Form2.CheckBox2.Checked:=ini.ReadBool('FORM1','CheckBox2Checked',False); Ini.Free; Кто знает варианты решения етой проблемы? может создавать форму2 при запуске проги и просто прятать ее??? а как так сделать если такой вариант правильный Последний раз редактировалось Delas, 25.12.2010 в 01:00. |
#2
|
|||
|
|||
Именно поэтому и не работает.
Что бы работать с формой надо иметь ее экзепляр. Вариант - вынести код сохранения/установки значения компонентов соотв. формы в ее события OnCreate/OnDestroy. |
#3
|
|||
|
|||
Спасибо помогло,буду знать что оно неработает на других формах
|