Переcоздание TForm

The_Immortal · Регистрация: 04.04.2009

Студворк — интернет-сервис помощи студентам

Ребят, в общем задача простая: есть форма, на ней n-контролов (боксы, едиты, листы и пр.), которые заполняются. Есть кнопка по нажатию которой все контролы должны очищаться, т.е. форма перед нами должна предстать как будто только что созданная.

Очищать каждый элемент вручную - глупо. Использование FindComponent более рационально, однако слишком много разных типов контролов, так что все равно не подходит.

Ну соответственно решил пересоздавать форму по нажатию этой кнопки:

C++
1
2
3
4
5
6
7
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Form1new = new TForm1(Application);
 this->Close();
 Form1new->Show();
}

Однако возникли следующие проблемы. На закрытие форм класса TForm1 у меня стоит:

C++
1
2
3
4
5
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 Application->Terminate();
 Action = caFree;
}

Соответственно

C++
1
this->Close();

- вызывает закрытие приложения.

Вот... Но даже если я решу эту проблему, все равно заметно как форма моргает и если предыдущая форма имела какие-то другие координаты, а не по центру (что выставлено по умолчанию для TForm1), то после нажатия кнопки происходит прыжок формы на центр...

Может кто-нибудь подскажет, как по умнее это сделать?

Благодарю!

Добавлено через 3 минуты

Не по теме:

P.S. LK, поправьте тайтл, пожалуйста... Что-то я промаСал

cpp_developer · 08.05.2012, 07:03

The_Immortal, кажись, обсуждалось и не один раз -

1. Более понятный способ. При сохдании формы, или при самом первом создании формы пишете состояние формы и контролов в файл ини, или в реестр, например, и грузите при необходимости.

2. Менее понятный способ (не делал)

.
WriteComponentResFile Function
ReadComponentResFile Function
ReadComponentResFile (C++)

Как сохранить всю форму в файл (как Delphi в *.dfm)
(к сожалению, пример на делфии)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
constructor TForm1.Create(AOwner: TComponent); // override;
var
  fname: String;
begin
  { Для динамически создаваемых контролов, может требоваться
  RegisterClasses(..); }
  fname := FormFilename;
  if FileExists( fname ) then
    begin
      CreateNew(AOwner);
      ReadComponentResFile(fname, Self);
    end
  else
    inherited Create( AOwner );
end;
 
procedure TForm1.FormCloseQuery( Sender: TObject;
   var CanClose: Boolean);
begin
  WriteComponentResFile(FormFileName, Self);
end;
 
{Peter Below, Vladimir Titov}

@Avazart · 08.05.2012, 16:34

я как-то по электронке неразрывный пробел отсылал и на форуме выкладывал , а здесь "пустое свойство" не сохраняется

Если сохранять в файл то это можно увидить

свойства просто нет

@Avazart · 08.05.2012, 16:40

Можно прописать его ручками Text = '' файле и тогда эдит будет очищаться

The_Immortal · 08.05.2012, 16:47 **[ТС]**

LK, Заюзал пример на делфи - он применителен, когда считывание данных формы в файл и извлечение происходит в разные моменты времени. В данном случае запись данных в файл происходит на закрытие формы, а извлечение - на создание формы. Мне же надо сделать в пределах одной сессии, т.е. когда форма не закрывается.
Поэтому, когда вызываю ReadComponentResFile вылетает ошибка, что такой-то элемент формы уже создан

@Avazart · 08.05.2012, 16:47

LK,WriteComponentResFile() ReadComponentResFile() дадут тот же эффект

The_Immortal · 08.05.2012, 16:51 **[ТС]**

Avazart, а может с WriteComponentResFile прокатит? Просто у меня опять проблема с уже имеющимеся компонентами

Я так и не понял, как Вы ее вчера обошли...

Добавлено через 1 минуту

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

Если сохранять в файл то это можно увидить свойства просто нет

А можно примерчик, как Вы в файл сохраняете?

@Avazart · 08.05.2012, 16:54

а может с ReadComponentResFile прокатит?

Не прокатит это одно тоже с тем что я предложил по сути
А можно примерчик, как Вы в файл сохраняете?
Я уже это кидал Сохранение динамических компонентов

The_Immortal · 08.05.2012, 16:57 **[ТС]**

Avazart,

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

Я уже это кидал

Чего-то не могу применить для моего случая...

@Avazart · 08.05.2012, 17:09

Это глючные и не понятные методы, не понимаю почему их не обкатали

Чего-то не могу применить для моего случая...

Эти ф-ции написаны что бы сохранять один компонент, но в читаемом виде
WriteComponentResFile() делает тоже самое только, в не читаемом виде

Добавлено через 10 минут
Если бы можно было как-то программно получить список-значение всех свойств компонента.
C# как я помню есть такой способ...а вот в Buildere ?

The_Immortal · 08.05.2012, 17:30 **[ТС]**

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

Если сохранять в файл то это можно увидить свойства просто нет

Так а можно примерчик кода, как Вы это поместили в файл?

@Avazart · 08.05.2012, 17:48

Можно решить так (не решает проблему с "блыманием" формы)
Пишим код

C++
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
namespace my
 {
 void SaveComponent(TComponent* Component,String FileName)
  {
  TMemoryStream *Ms = new TMemoryStream();
  Ms->WriteComponent(Component);
  TFileStream *Fs = new  TFileStream(FileName,fmCreate);
  Ms->Position = 0;
  ObjectBinaryToText(Ms,Fs);
  delete Fs,Ms;
  }
 
  void LoadComponent(TComponent* Component,String FileName)
  {
  TFileStream *Fs = new TFileStream(FileName,fmOpenRead);
  TMemoryStream *Ms = new TMemoryStream();
  ObjectTextToBinary(Fs,Ms);
  Ms->Position = 0;
  Ms->ReadComponent(Component);
  delete Fs,Ms;
  }
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
my::SaveComponent(Form1,"1.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(;this->ComponentCount!=0;) delete this->Components[0];
my::LoadComponent(Form1,"1.txt");
}
//---------------------------------------------------------------------------

Запускаем на кномку пока не жмем.
Открываем 1.txt в текстовом редакторе правим его ручками:
Аккуратно удаляем из него свойства формы, и заменяем свойства нужных компонентов.
Сохраняем и жмем кнопку.

Таким же образом можно переписать ф-ции для загрузки каждого в отдельности компонента решив проблему с "блыманием"...

cpp_developer · 09.05.2012, 23:02

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

Открываем 1.txt в текстовом редакторе правим его ручками

ага, а на рисуночке правите Unit1.dfm в явном виде

.

@Avazart · 10.05.2012, 00:11

ага, а на рисуночке правите Unit1.dmf в явном виде

Я только показал что надо править.А вообще можно напрямую от туда копирнуть в txt-файл и там править

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.05.2012, 16:40
	Можно прописать его ручками Text = '' файле и тогда эдит будет очищаться 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	08.05.2012, 16:47 [ТС]
	LK, Заюзал пример на делфи - он применителен, когда считывание данных формы в файл и извлечение происходит в разные моменты времени. В данном случае запись данных в файл происходит на закрытие формы, а извлечение - на создание формы. Мне же надо сделать в пределах одной сессии, т.е. когда форма не закрывается. Поэтому, когда вызываю ReadComponentResFile вылетает ошибка, что такой-то элемент формы уже создан 0

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.05.2012, 16:47
	LK,WriteComponentResFile() ReadComponentResFile() дадут тот же эффект 0