[marina511]

У меня возникла небольшая проблема. Я создала форму с советами при запуске программы. В ней добавила компонент checkbox для возможности отключения данного окна при повторном запуске. Но как это сделать пока не пойму. Подскажите!

[lmikle]

Сообщение от marina511

У меня возникла небольшая проблема. Я создала форму с советами при запуске программы. В ней добавила компонент checkbox для возможности отключения данного окна при повторном запуске. Но как это сделать пока не пойму. Подскажите!

При закрытии формы с советами просто сохраняешь состояние флажка.
А при старте программы перед тем, как показать форму с советами проверяешь значение и принимаешь решение о том, показывать ли эту форму или нет.

[marina511]

А пример можешь привести?

[stil]

ну например в файл ini сохранять значение checkbox

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

uses IniFiles; ... //сохранить значение var Conf:TIniFile; begin Conf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini'); Conf.WriteBool('OPTION','show',Checkbox1.Checked); Conf.Free; ... //проверить значение var Conf:TIniFile;     b:boolean; begin Conf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini'); b:=Conf.ReadBool('OPTION','show',false); Conf.Free;

[iGeTT]

Вот подробно, с комментариями. Не забудь прописать IniFiles в uses.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var IniFile: TIniFile;     First, Second, Third: Boolean; begin   //Определяем состояние чекбоксов   if sCheckBox1.State = cbUnchecked then First:=false      else First:=True;   if sCheckBox2.State = cbUnchecked then Second:=false      else Second:=True;   if sCheckBox3.State = cbUnchecked then Third:=false      else Third:=True;   //Открываем ини-файл   IniFile:=TIniFile.Create('C:\config.INI');   //Записываем значение First, Second, Third в секцию CheckBox   IniFile.WriteBool('CheckBox', 'First', First);   IniFile.WriteBool('CheckBox', 'Second', Second);   IniFile.WriteBool('CheckBox', 'Third', Third);   //Завершаем работу с ини-файлом   IniFile.Free; end;   procedure TForm1.FormPaint(Sender: TObject); var IniFile: TIniFile;     First, Second, Third: Boolean; begin   //Открываем ини-файл   IniFile:=TIniFile.Create('C:\config.INI');   //Считываем конфиг   First:=IniFile.ReadBool('CheckBox', 'First', False);   Second:=IniFile.ReadBool('CheckBox', 'Second', False);   Third:=IniFile.ReadBool('CheckBox', 'Third', False);   //Отмечаем чекбоксы   if First = True then sCheckBox1.State:=cbChecked      else sCheckBox1.State:=cbUnchecked;   if Second = True then sCheckBox2.State:=cbChecked      else sCheckBox2.State:=cbUnchecked;   if Third = True then sCheckBox3.State:=cbChecked      else sCheckBox3.State:=cbUnchecked;   //Завершаем работы с ини-файлом   IniFile.Free; end;

[marina511]

Спасибо! Еще не совсем мне дошло но разберусь! Еще раз спасибо

[marina511]

Получилось Еще раз спасибки!!!!!!!!!!