Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/39: Рейтинг темы: голосов - 39, средняя оценка - 4.92
1 / 1 / 4
Регистрация: 01.06.2012
Сообщений: 150
1

Сохранение в ini файл настройки

06.07.2012, 13:00. Показов 7332. Ответов 4
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Создаю форму 2 на неё кидаю чекбоксы допустим чек бокс 1 если стоит то форма прозрачная если не стоит то форма не прозрачная. Помогите разобраться что куда вписать чтоб сохранял в файл и читал при открытии формы из ini файла главное прозрачность формы
Код
[DELPHI]F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini');


  Edit1.Text := F.ReadString('tools', 'edit1', 'no text');
  Edit2.Text := IntToStr(F.ReadInteger('tools', 'koef', 0));
  CheckBox1.Checked := F.ReadBool('tools', 'check', true);

  names := TStringList.Create;
  F.ReadSection('files', names);
  for i := 0 to Names.Count - 1 do
    ListBox1.Items.Add(F.ReadString('files', names.Strings[i], ''));
  names.Destroy;

  F.Destroy; [/DELPHI]
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 06.07.2012, 13:00
Ответы с готовыми решениями:

Сохранение в ini-файл
Не читается ( не сохраняется ) с ini файла. При компилировании все работает, а если запуская...

Сохранение игры в ini-файл
Доброго времени суток. Есть игра "виселица" ( взята с просторов этого же форума) Пытаюсь...

Сохранение настроек в ini-файл
Пару дней обучаюсь Delphi , сегодня попробовал написать программу которая сохраняет настройки в...

Сохранение содержимого Edit-ов в ini-файл
Вообщем нужно ,что бы из editov сохранялось в ini файл ,а при перезапуске открывалась прога и дабы...

4
5706 / 2297 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
06.07.2012, 13:11 2
Delphi
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  Ini: TIniFile;
implementation
 
{$R *.dfm}
 
procedure IniInit(const FName: String);
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+FName+'.ini');
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  AlphaBlendValue := 50;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  IniInit('config');
  CheckBox1.Checked := Ini.ReadBool('alpha', 'value', True)
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IniInit('config');
  Ini.WriteBool('alpha', 'value', CheckBox1.Checked);
  Ini.Free;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AlphaBlend := CheckBox1.Checked;
end;
 
end.
1
1 / 1 / 4
Регистрация: 01.06.2012
Сообщений: 150
06.07.2012, 13:15  [ТС] 3
Цитата Сообщение от Arcor Посмотреть сообщение
Delphi
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  Ini: TIniFile;
implementation
 
{$R *.dfm}
 
procedure IniInit(const FName: String);
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+FName+'.ini');
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  AlphaBlendValue := 50;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  IniInit('config');
  CheckBox1.Checked := Ini.ReadBool('alpha', 'value', True)
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IniInit('config');
  Ini.WriteBool('alpha', 'value', CheckBox1.Checked);
  Ini.Free;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AlphaBlend := CheckBox1.Checked;
end;
 
end.
Спасибо сейчас проверю!
0
5706 / 2297 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
06.07.2012, 13:17 4
еще можно трекбар поставить для настройки прозрачности
Delphi
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls, ExtCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  Ini: TIniFile;
implementation
 
{$R *.dfm}
 
procedure IniInit(const FName: String);
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+FName+'.ini');
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  AlphaBlendValue := 50;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  IniInit('config');
  CheckBox1.Checked := Ini.ReadBool('alpha', 'value', True);
  TrackBar1.Position := Ini.ReadInteger('alphavalue', 'value', 255)
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IniInit('config');
  Ini.WriteBool('alpha', 'value', CheckBox1.Checked);
  Ini.WriteInteger('alphavalue', 'value', TrackBar1.Position);
  Ini.Free;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AlphaBlend := CheckBox1.Checked;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  AlphaBlendValue := TrackBar1.Position;
end;
 
end.
0
1 / 1 / 4
Регистрация: 01.06.2012
Сообщений: 150
06.07.2012, 13:35  [ТС] 5
Полёт отличный спасибо то что нужно!
0
06.07.2012, 13:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 06.07.2012, 13:35
Помогаю со студенческими работами здесь

Сохранение StringGrid через SaveDialog в ini-файл
Нид сохранить StringGrid через кнопку в ини(*.ini) файл диалогом SaveDialog!Help!!! Оч нужно!...

Delphi 7 сохранение динамической панели в ini файл
Привет, как можно сохранить в ini файл и чтение с него динамическую панель, а то я на сайтах даже и...

Сохранение положения компонента на форме (Сохранение параметра в Ini-файл)
Не знаю верно ли назвал тему. Доброго вечера тебе, всяк сюда входящий. Подскажите пожалуйста с...

Сохранение в ini и чтение из ini собственных типов данных и сохранение комментариев
Доброго времени суток. 1. Допустим есть собственный тип, определяемый посредством Enum. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru