Создание, Очистка, Уничтожение Форм

@Visilnik · Регистрация: 08.09.2016

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

Всем снова Здравствуйте! Спасибо Всем кто ответил в предыдущих моих темах!
Снова Возникли вопросы:
1. Как сделать так чтобы по нажатию кнопки (пример: отмена) сбросились все действия на форме, или форма пересоздалась в исходное состояние?
2.После закрытия формы 1 на форме 2 сделать типа реконекта ADOQuery?

@krapotkin · 17.11.2016, 19:23

формы по умолчанию в делфи ставятся в автосоздание
Ctrl+F11 -- Forms -- Auto Create
реально это неправильно. Нужно их оттуда убирать

форму нужно создавать когда на нужна и разрушать после использования

кнопки OK/Отмена на Form2 должны иметь заполненное свойство ModalResult

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses ....,Form2;
 
procedure TForm1.b1Click(...);
var f:TForm2;
begin
  f:=TForm2.Create(nil);
try
  // тут заполнить данными форму например
  f.edit1.text:='111';
  if form2.ShowModal=mrOk then
  begin
     // тут прочитать данные из формы например
    ssss:=f.edit1.text;
  end;
finally
  // уничтожить форму
  f.free;
end;
end;

Добавлено через 2 минуты
если это надо сделать на этой же форме, пишите специальный метод и вызывайте его по нажатию кнопки

"типа реконнект":
AdoQuery1.Close;
AdoQuery1.Open;

@Visilnik · 22.11.2016, 13:02 **[ТС]**

"форму нужно создавать когда она нужна и разрушать после использования"
Т.е. при создании описать все компоненты которые на ней находятся, с их позициями и значениями?

@krapotkin · 22.11.2016, 15:30

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

вы создаете дизайн формы, но не нужно ее создавать при старте приложения
про автосоздание перечитайте #2

@Visilnik · 23.11.2016, 07:50 **[ТС]**

Что то не пойму как её вызвать. Вылетает ошибка. Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
......
implementation
 
{$R *.fmx}
 
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit10;
 
procedure TForm8.Button1Click(Sender: TObject);
var  Form10:TForm10;
begin
....
 
 
  Form10:=TForm10.Create(self);
  Form10.Show;
  
 
end;

@krapotkin · 23.11.2016, 08:05

а где ошибка? догадаться?
а что, show от showModal ничем на глазок не отличается?

@Visilnik · 23.11.2016, 08:34 **[ТС]**

По нажатию кнопки (Вход) на Форме (Вход в программу) должна открыться форма10 (Электронный перечень материалов).

@krapotkin · 23.11.2016, 15:57

текст ошибки вижу,
и в какой строке она ?

а у тен ти фи ка ци я

@Visilnik · 24.11.2016, 08:47 **[ТС]**

В этой строке то же ошибка

.
Походу разобрался, убрал из var form10:tform10 всё заработало ))))
Только теперь я так понял такое не пройдёт. Допустим Form5 в ней строка обращения к form10 (form10.edit1.text:='ляля') ((

@krapotkin · 24.11.2016, 09:28

надеюсь Var From10 убрано из файла form10.pas а не из процедуры?

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

@Visilnik · 24.11.2016, 12:05 **[ТС]**

Да, был невнимателен. Буду пересматривать концепцию создания своего приложения.
Спасибо Вам за помощь.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

Создание, Очистка, Уничтожение Форм

Решение

Решение

@Visilnik 0 / 0 / 1 Регистрация: 08.09.2016 Сообщений: 38

	Создание, Очистка, Уничтожение Форм 17.11.2016, 10:08. Показов 2743. Ответов 10 Метки нет (Все метки) Всем снова Здравствуйте! Спасибо Всем кто ответил в предыдущих моих темах! Снова Возникли вопросы: 1. Как сделать так чтобы по нажатию кнопки (пример: отмена) сбросились все действия на форме, или форма пересоздалась в исходное состояние? 2.После закрытия формы 1 на форме 2 сделать типа реконекта ADOQuery? 0

@Visilnik 0 / 0 / 1 Регистрация: 08.09.2016 Сообщений: 38
	22.11.2016, 13:02 [ТС]
	"форму нужно создавать когда она нужна и разрушать после использования" Т.е. при создании описать все компоненты которые на ней находятся, с их позициями и значениями? 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	22.11.2016, 15:30
	это из другой оперы дизайнер создает дизайн автомобиля, а не пилит его напильником вы создаете дизайн формы, но не нужно ее создавать при старте приложения про автосоздание перечитайте #2 1

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	23.11.2016, 08:05
	а где ошибка? догадаться? а что, show от showModal ничем на глазок не отличается? 0

@Visilnik 0 / 0 / 1 Регистрация: 08.09.2016 Сообщений: 38
	23.11.2016, 08:34 [ТС]
	По нажатию кнопки (Вход) на Форме (Вход в программу) должна открыться форма10 (Электронный перечень материалов). Миниатюры 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	23.11.2016, 15:57
	Сообщение было отмечено Visilnik как решение Решение текст ошибки вижу, и в какой строке она ? а у тен ти фи ка ци я 1

@Visilnik 0 / 0 / 1 Регистрация: 08.09.2016 Сообщений: 38
	24.11.2016, 08:47 [ТС]
	В этой строке то же ошибка . Походу разобрался, убрал из var form10:tform10 всё заработало )))) Только теперь я так понял такое не пройдёт. Допустим Form5 в ней строка обращения к form10 (form10.edit1.text:='ляля') (( 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	24.11.2016, 09:28
	Сообщение было отмечено Visilnik как решение Решение надеюсь Var From10 убрано из файла form10.pas а не из процедуры? а насчет остального - не должно быть у form5 обращения к form10 если form5 ее не создает сама данные не должны лежать на формах формы - это интерфейс. отображение данных, работа с пользователем, запись в данные но никаких данных на форме не должно быть... 1

@Visilnik 0 / 0 / 1 Регистрация: 08.09.2016 Сообщений: 38
	24.11.2016, 12:05 [ТС]
	Да, был невнимателен. Буду пересматривать концепцию создания своего приложения. Спасибо Вам за помощь. 0