Выход из модальной Формы

@Oleg34 · Регистрация: 22.12.2010

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

Здравствуйте! У меня несколько форм. Основная форма создается Auto create forms, остальные в разделе Available forms. Из основной формы я обращаюсь к вспомогательным так:

C++
1
2
3
4
5
6
7
void __fastcall TFormMain::BtWareHouseClick(TObject *Sender)
{
    Application->MainForm->Hide();
    FormWareHouse = new TFormWareHouse(FormMain);
    FormWareHouse->ShowModal();
    FormWareHouse->Free();
}

При этом основная форма становится невидимой (Application->MainForm->Hide();). А вот как при закрытии вспомогательной основная форма стала активной?

@volvo · 11.06.2015, 14:22

C++
1
2
3
4
5
    Application->MainForm->Hide();
    FormWareHouse = new TFormWareHouse(FormMain);
    FormWareHouse->ShowModal();
    FormWareHouse->Free();
    Application->MainForm->Show(); // <--- Вот так

@Oleg34 · 11.06.2015, 14:24 **[ТС]**

Огромное спасибо!

@Dinkin · 11.06.2015, 14:24

Наверное луче не через hide закрывать, а просто ставить статус visible=false;
А в событии закрытии дочерних форм, просто visible=true; для главной формы.

Типа так

C
1
2
3
4
5
        Application->MainForm->Visible=false;
    FormWareHouse = new TFormWareHouse(FormMain);
    FormWareHouse->ShowModal();
    FormWareHouse->Free();
    Application->MainForm->Visible=true;

@volvo · 11.06.2015, 14:26

Dinkin, с учетом того, что

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TCustomForm.Hide;
begin
  Visible := False;
end;
 
procedure TCustomForm.Show;
begin
  Visible := True;
  BringToFront;
end;

, лучше-таки Hide()/Show()

Новые блоги и статьи Все статьи Все блоги /
Rust и квантовые вычисления: интеграция с Q# и Qiskit golander 01.06.2025 Мир квантовых вычислений традиционно оставался закрытым клубом для высокоуровневых языков типа Python и специализированных DSL вроде Q#. Однако в последние годы Rust начал тихую революцию в этой. . .	Кэш REDIS и C# UnmanagedCoder 01.06.2025 Redis (Remote Dictionary Server) - это ультраскоростное хранилище данных в оперативной памяти, работающее по принципу "ключ-значение". Суть проста: данные хранятся не на диске, а прямо в RAM, что. . .	Lenovo IH110CX Rev 1.0 user manual Maks 01.06.2025	Размещения без повторений VistaSV30 31.05.2025 Код возвращает список вариантов размещений A^{k}_{n}=\frac{n!}{(n-k)!} from itertools import permutations def pwr(k, n): # Размещение без повторений (Placement without repetition) if k. . .	Redis и Node.js с TypeScript - решения для высоконагруженных систем Reangularity 31.05.2025 Redis (Remote Dictionary Server) — сверхбыстрое хранилище данных в памяти, способное обрабатывать операции за микросекунды. И что особенно важно для нас — с удивительно простым API. А теперь. . .
Unit-тестирование с моками в Go golander 31.05.2025 Большинство разработчиков предпочитают тестировать код без использования моков. Например, при интеграции с Elasticsearch логичнее запустить контейнер локально и тестировать Go-код непосредственно с. . .	Как работать с PDF в C# stackOverflow 31.05.2025 Нам приходится сталкиваться с PDF по разным причинам. Генерация счетов, создание отчетов, извлечение данных из загруженных пользователем документов, автоматизация рабочих процесов - это лишь верхушка. . .	Двухбуквенные коды стран в шифровании. russiannick 31.05.2025 Человечество издревле манила возможность замены сочетаний букв вымышленными символами, делающие сообщение понятным только для посвещенных. Настала пора внести в это свой вклад. Двухбуквенные коды. . .	Мой опыт в исправлении ошибки приложения Boinc в части заряда батареи смартфона. Programma_Boinc 31.05.2025 Мой опыт в исправлении ошибки приложения Boinc в части заряда батареи смартфона. Хотел бы поделиться опытом в исправлении ошибки приложения в части заряда батареи смартфона. Сразу скажу, что. . .	Добро пожаловать на конкурс PrimeGrid, посвященный 20-летию PrimeGrid Programma_Boinc 31.05.2025 Добро пожаловать на конкурс PrimeGrid, посвященный 20-летию PrimeGrid: 5-дневный обобщенный поиск простых чисел Ферма n = 20 с 12 июня 20:20 UTC по 17 июня 20:20 UTC. 12 июня 2005 года. . .

@Oleg34 1 / 1 / 1 Регистрация: 22.12.2010 Сообщений: 128
	11.06.2015, 14:24 [ТС]
	Огромное спасибо! 0