если сами создаем, то сами

begin

IniFile:=TIniFile.Create('project.ini'); // создаем переменную

Form1.Top:=IniFile.ReadInteger('FORM1','Form1Top',Form1.Top); // верхнее положение окна

Form1.Left:=IniFile.ReadInteger('FORM1','Form1Left',Form1.Left); // левое положение окна

Form1.Height:=IniFile.ReadInteger('FORM1','Form1Height',Form1.Height); // высота

Form1.Width:=IniFile.ReadInteger('FORM1','Form1Width',Form1.Width); // ширина

Edit1.Text:=IniFile.ReadString('FORM1','Edit1Text',Edit1.Text); // текст в Edit1

ComboBox1.ItemIndex:=IniFile.ReadInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex); // выбранный пункт

CheckBox1.Checked:=IniFile.ReadBool('FORM1','CheckBox1Checked',CheckBox1.Checked); // состояние CheckBox1

CheckBox2.Checked:=IniFile.ReadBool('FORM1','CheckBox2Checked',CheckBox2.Checked); // состояние CheckBox2

IniFile.Free; // если сами создаем, то сами уничтожаем.

end;

procedure TForm1.WriteParams;

Var IniFile:TIniFile;

begin

IniFile:=TIniFile.Create('project.ini');

IniFile.WriteInteger('FORM1','Form1Top',Form1.Top);

IniFile.WriteInteger('FORM1','Form1Left',Form1.Left);

IniFile.WriteInteger('FORM1','Form1Height',Form1.Height);

IniFile.WriteInteger('FORM1','Form1Width',Form1.Width);

IniFile.WriteString('FORM1','Edit1Text',Edit1.Text);

IniFile.WriteInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex);

IniFile.WriteBool('FORM1','CheckBox1Checked',CheckBox1.Checked);

IniFile.WriteBool('FORM1','CheckBox2Checked',CheckBox2.Checked);

IniFile.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ReadParams;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

WriteParams;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

WriteParams;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

ReadParams;

end;

end.
// ----------------Конец модуля Unit1------------------
Вышерассмотренный пример можно забрать по этой ссылке (2 Кб).
Запустите программу несколько раз и проследите за восстановлением внешнего вида программы. Попробуйте сохранять и восстанавливать параметры с помощью кнопок.

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---