Запрет повторного открытия формы

@Newby52 · Регистрация: 24.07.2018

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

Какой самый простой способ определения - форма создана или нет? Чтобы повторно её нельзя было открыть (создать)? Сравнение с nil, или проверка на Assigned, увы, - не даёт достоверную информацию.
Пока приходится делать костыли.

@leors · 21.09.2022, 02:26

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

форма ли это или ещё что-нибудь.

Про что-нибудь сам делаю. Но вот форма. вопрос о форме а не о чём-нибудь.
И назовите хоть одну задачу где это вообще нужно.
Если у приложения много форм все они создаются при старте и попросту скрыты.
Основное окно создавать второй раз то зачем? Это уже перезапуск приложения получается.
Может автор хочет сделать оноразовую прогу?
Может речь идет о других формах?
Ну закрыли скажем вторичное окно и хотите его открыть, а вот надо запретить.
Если основное окно цело, какие проблемы? Поставили создание формы по условию и все.
Но вопрос то не в этом. Вопрос в том чего хочет сам автор поста.

@northener · 21.09.2022, 02:46

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

Но вот форма. вопрос о форме а не о чём-нибудь.
И назовите хоть одну задачу где это вообще нужно.

Например программно-аппаратный комплекс. Аппаратная его часть работает независимо от программной. В аппаратной части происходят некие ошибки/проблемы. Как уведомить оператора программы об этих проблемах, если их более одной?
И не только уведомить, но и предоставить оператору выбор решения.

@D1973 · 21.09.2022, 05:22

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

Все формы создаются на стадии старта и прописаны в файле проекта.

Отнюдь нет. В проекте есть 2 типа форм: автосоздаваемые и доступные. Прописаны в файле проекта и автоматически создаются только те, которые включены в группу автосоздаваемых, создание остальных - задача самого программиста.

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

я не уверен в том что это вообще возможно.

В этом и прикол динамически создаваемых форм, что я могу наштамповать сколько угодно экземпляров такой формы.

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

назовите хоть одну задачу где это вообще нужно.

Не будем далеко в дебри лезть: стандартное приложение Windows - Sticky Notes...
Или вот: при работе с БД я могу открыть одну запись в окне редактирования, а могу открыть сразу несколько, переключаясь между этими окнами при необходимости...
Да возьмите любое MDI-приложение, хоть тот же MS Word версии до 2007: там дочерние окна создавались именно по такому принципу...

Verevkin · 21.09.2022, 08:16

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

И назовите хоть одну задачу где это вообще нужно.

Total Commander видел? Окошки прогресса фонового копирования файлов существуют независимо, их количество не ограничено.

@AzAtom · 21.09.2022, 09:11

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

Зачем кому-то надо в собственном приложении создавать копию формы...

Да мало ли, что задумает программист? Но в данном случае ТС как раз не хочет создавать несколько форм, а только одну. И говорит про проверку Assigned, значит, с вероятностью 99% имеет в виду форму именно своего приложения, а не первой запущенной копии приложения.

@leors · 21.09.2022, 09:16

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

Отнюдь нет. В проекте есть 2 типа форм: автосоздаваемые и доступные.

Я вообще не об этом. По смыслу слов заказчика главное окно почему-то исчезает и надо запретить его новое появление.
Так или нет, но смысл такой. Или вообще речь идет о запуске приложения при уже запущенном.
Ни о каких дочерних окнам там речи не идет.
И я написал что создать клон главного окна в рамках текущего приложения, вряд ли возможно, потому как это равносильно перезапуску. В любом случае любой элемент должен быть объявлен. Без этого создание просто невозможно. А раз оно объявлено то и запретить его нет проблем. Именно вы даете команду. Поставив условие можно делать что угодно и как угодно.

Verevkin · 21.09.2022, 09:32

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

По смыслу слов заказчика главное окно почему-то исчезает и надо запретить его новое появление.
Так или нет, но смысл такой. Или вообще речь идет о запуске приложения при уже запущенном.
Ни о каких дочерних окнам там речи не идет.

В каком месте скрыт этот тайный смысл?

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

Какой самый простой способ определения - форма создана или нет? Чтобы повторно её нельзя было открыть (создать)? Сравнение с nil, или проверка на Assigned, увы, - не даёт достоверную информацию.
Пока приходится делать костыли.

@Newby52 · 21.09.2022, 15:25 **[ТС]**

В моём случае речь шла о форме поиска текстового вхождения в наименование узлов дерева.
Форма вызывается как Show и имеет свойство "Поверх всех окон".

Verevkin · 21.09.2022, 15:32

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

В моём случае речь шла о форме поиска текстового вхождения в наименование узлов дерева.
Форма вызывается как Show и имеет свойство "Поверх всех окон".

В этом случае никакие дополнительные мероприятия не нужны. Форму надо создавать по первому поиску и больше до завершения приложения не убивать.

@Newby52 · 21.09.2022, 15:34 **[ТС]**

Так оператор может повторно нажать на кнопку вызова формы. И, если ничего не предпринимать, она создастся снова.

Verevkin · 21.09.2022, 15:40

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

Так оператор может повторно нажать на кнопку вызова формы. И, если ничего не предпринимать, она создастся снова.

Да ёпть...

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure ShowSearchDialog;
begin
  for var idx:= 0 to Screen.FormCount - 1 do
    if Screen.Forms[idx] is TFormSearch
      then begin
             Screen.Forms[idx].Show();
             exit;  
           end;
           
  TFormSearch.Create(Application).Show();   
end;

@Newby52 · 21.09.2022, 15:46 **[ТС]**

А при обработке OnClose формы, прятать её, что ли?

@Arcor · 21.09.2022, 15:47

Verevkin,
Веревкин ли это пишет оО или двойник ?? а зачем ее искать? Ну создал если ее уже, то она уже где-то создана, октрывай еще раз суй что надо

Verevkin · 21.09.2022, 15:49

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

А при обработке OnClose формы, прятать её, что ли?

Не надо при OnClose ничо делать. По умолчанию параметр Action равен caHide, форма по умолчанию скрывается при закрытии, а не удаляется.

Добавлено через 53 секунды

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

Веревкин ли это пишет оО или двойник ?? а зачем ее искать? Ну создал если ее уже, то она уже где-то создана, октрывай еще раз суй что надо

Не люблю юзать глобальные переменные. Да и сама тема основана на том, что им нету доверия у автора.
Вот я и развлекаюсь.

@Arcor · 21.09.2022, 15:50

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

Не люблю юзать глобальные переменные.

ну а целый Screen и Application в одном примере аж заюзал))))

@Newby52 · 21.09.2022, 15:52 **[ТС]**

Ну, во всяком случае, решение, предложенное AzAtom, лучшее для моего стиля работы.

Verevkin · 21.09.2022, 15:53

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

ну а целый Screen и Application в одном примере аж заюзал))))

Да. Но я не хотел, честно.

Так получилось.
Смотри мой первый ответ про классовые переменные.

@AzAtom · 21.09.2022, 15:54

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

оператор может повторно нажать на кнопку вызова формы.

Пусть форма поиска автосоздаётся, ну или вручную создать при нажатии, если её ещё нет, а потом простой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(frmSearch) then // Если форма автосоздаваемая, то эти 2 строки не нужны
    Application.CreateForm(TfrmSearch, frmSearch);
 
 
  if not frmSearch.Visible then
  begin
    // Подготовка формы поиска
    frmSearch.Label1.Caption := IntToStr(Random(100));
    frmSearch.Show;
  end;
end;

И всё, пока форма на экране пусть хоть обнажимаются кнопку, форма по новой создана и/или инициализирована не будет.

@Newby52 · 21.09.2022, 16:00 **[ТС]**

Пусть форма поиска...

Зачем? Твой вариант в посте №10 - оптимальный.
При нажатии кнопки проверяю на nil. При выходе из формы присваиваю nil. И больше никаких лишних движений. И форма память не засоряет.

@AzAtom · 21.09.2022, 16:03

То я предложил, когда контекста не знал. А тут и кода меньше и проще.

Новые блоги и статьи Все статьи Все блоги /
Новая последнея моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	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. Опрашиваются регистры. . .

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6

	Запрет повторного открытия формы 15.09.2022, 12:34. Показов 3031. Ответов 40 Метки delphi 10.4.1, delphi 2010 (Все метки) Какой самый простой способ определения - форма создана или нет? Чтобы повторно её нельзя было открыть (создать)? Сравнение с nil, или проверка на Assigned, увы, - не даёт достоверную информацию. Пока приходится делать костыли. 0

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6
	21.09.2022, 15:25 [ТС]
	В моём случае речь шла о форме поиска текстового вхождения в наименование узлов дерева. Форма вызывается как Show и имеет свойство "Поверх всех окон". Миниатюры 0

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6
	21.09.2022, 15:34 [ТС]
	Так оператор может повторно нажать на кнопку вызова формы. И, если ничего не предпринимать, она создастся снова. 0

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6
	21.09.2022, 15:46 [ТС]
	А при обработке OnClose формы, прятать её, что ли? 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	21.09.2022, 15:47
	Verevkin, Веревкин ли это пишет оО или двойник ?? а зачем ее искать? Ну создал если ее уже, то она уже где-то создана, октрывай еще раз суй что надо 0

@Newby52 43 / 38 / 5 Регистрация: 24.07.2018 Сообщений: 214 Записей в блоге: 6
	21.09.2022, 15:52 [ТС]
	Ну, во всяком случае, решение, предложенное AzAtom, лучшее для моего стиля работы. 0

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,496
	21.09.2022, 16:03
	То я предложил, когда контекста не знал. А тут и кода меньше и проще. 0