Положение форм в ini файлы

[Fahman]

Всех с новым годом!!!
У меня такая маленькая проблема)
Есть программа, в которой есть 298 Form
например, Я открыл только 4 формы и все остальные я не трогал... и вот формы например такие
form2
form5
form232
form125
все у меня только эти формы) Я хотел бы на "OnClose" главной form1 сделать функцию такую,
Например выходит сообщение
showmeasage('Cохранить рабочий стол?') и если юзер нажал на кнопку "ок" или там "да" то программа сохранила те формы которые были открыты, и сохранила их положение в settings.ini чтоб при повторном открытии у меня открылись только те формы которые я оставлял активными, возожно ли так? Если да то можно примерчик?

[alextrof94]

Если у тебя в проекте столько форм - ищи пути от них избавится. Много компонент использовать - не хорошо.

[_SERGEYX_]

Что-то меня терзают смутные сомнения, что есть необходимость в таком количестве форм... Если в них похожие данные, может есть смысл создавать их динамически? В любом случае, я не могу представить программу, в которой можно (не модально!!!) открыть 298 форм, потом перейти на главную и закрыть программу. Ужас!!!

По теме...
- Нужно узнать какие формы сейчас открыты

if Form2.Showing then

- и записать в ini-файл какой-то параметр (открывать эту форму после открытия главной формы или нет)

ИЛИ

- задать глобальную переменную, например

var
Write_Forms_Params: Boolean = False;

- А в OnClose всех форм написать
if Write_Form_Params then (записать в ini-файл какой-то параметр, что эту форму нужно открыть после открытия главной).

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

[Stilet]

Нужно узнать какие формы сейчас открыты

Угу:

With Screen do begin
 for i:=0 to FormCount-1 do
  if Forms[i].Visible then begin
   With Ini do begin
    WriteInteger(Forms[i].name,'Top',Forms[i].Top);
    WriteInteger(Forms[i].name,'Left',Forms[i].LEft);
    WriteInteger(Forms[i].name,'Width',Forms[i].Width);
    WriteInteger(Forms[i].name,'Hwight',Forms[i].Height);
   end;
  end;
end;

Однако согласен - большое кол-во форм пугает.

[Fahman]

ну вот такие окна у меня

просто я же не знаю какое именно нужно будет юзеру....

вот нашел пример

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
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.Free;
end;




procedure TForm1.FormCreate(Sender: TObject);
Var IniFile:TIniFile; // объявление переменной, через которую будут обрабатываться данные
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); // ширина
IniFile.Free; // если сами создаем, то сами уничтожаем.
end;

вроде норм все работает....

[eval]

ну вот такие окна у меня

и чем они различаются? на сколько я могу разглядеть, то ничем

[Fahman]

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

и чем они различаются? на сколько я могу разглядеть, то ничем

как ни чем? в каждом окне свой фьчерс свои акции и валютные пары ) только размер 1) ито не у всех акций
золото например чуток меньше по высоте

[alextrof94]

Но их же юзер не будет просматривать одновременно. Да и если одновременно - создавай динамически. http://www.cyberforum.ru/delphi-begi...read99806.html

[Stilet]

в каждом окне свой фьчерс свои акции и валютные пары )

Все равно овер 200 окон это перррребор...
Одновременно чтоб их просмотреть понадобится А-а-а-а-громнейший телевызер.

[doktor255]

Кажется я понял. Человек не рисует на форме графики, а имеет кучу имаджей с картинками, распиханными по формам, а о динамическом создании вообще ничего не знает, вот и накодил тучу бреда.