2 формы первая закрытая со второй работаем

@Mrak19901124 · Регистрация: 25.02.2010

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

хелп не могу розобраца мануала по этом практычески не нашол.
Мне нуно с Form1 перейти на Form2 з Form2 на Form...
но чтобы при переходи з Form1 на Form2 оно полностю закрывало Form1
если мы прописываем при кнопке

C++
1
2
3
4
5
6
7
8
9
10
11
12
#include "Unit1.h"
#include "Unit2.h"
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
Form1->Visible=false;
Form1->Enabled=false;
Application->CreateForm(__classid(TForm2), &Form2);
  Form2->ShowModal();
}

запускаемо нажымем на кнопку оно нам откроет Form 2 мы закроемо Form2 (хрестиком в правом углу) то у нас програма будет висеть в запущених потомучто Form1 мы не закрыли а токо зделали невидими и не активным
Как при открытии Form2 закрыть Form1???

и ещо вопрос у меня иногда выбивает такую ошыбку почему?

[Компоновщик Ошибка] Unresolved external '__fastcall TForm1::FormCreate(System::TObject *)' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\123\UNI T1.OBJ

@Mrak19901124 · 04.03.2010, 18:53 **[ТС]**

Sasha,
выдайот ошыбку!!!
ошыбка
[C++ Ошибка] Unit2.cpp(18): E2316 '_fastcall TForm2::FormClose(TObject *,TCloseAction &)' is not a member of 'TForm2'

@Sasha · 04.03.2010, 18:56

Замени своё

C++
1
2
Application->CreateForm(__classid(TForm2), &Form2);
  Form2->ShowModal();

на просто

C++
1
Form2->ShowModal();

@Mrak19901124 · 04.03.2010, 18:59 **[ТС]**

заменил вот первый файл ошыбка всьоравно!

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 #include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Form2->ShowModal();
}
//---------------------------------------------------------------------------

вот второй

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
   void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
SendMessage(FindWindow("TForm1","Form1"),WM_CLOSE,0,0);
}

@Sasha · 04.03.2010, 19:05

А попробуй заново создать проект такой же как у тебя щас написано

Добавлено через 30 секунд
Потомучто у меня так же написано как у тебя и никаких ошибок не выходит

@Mrak19901124 · 04.03.2010, 19:08 **[ТС]**

не всеравно ошыбка
[C++ Ошибка] Unit2.cpp(18): E2316 '_fastcall TForm2::FormClose(TObject *,TCloseAction &)' is not a member of 'TForm2'

@Sasha · 04.03.2010, 19:18

Странно

Добавлено через 5 минут
А как ты создаёшь вторую форму?

@Mrak19901124 · 04.03.2010, 19:21 **[ТС]**

Файл-новие-форма!

@Sasha · 04.03.2010, 19:26

хм странно

@Mrak19901124 · 04.03.2010, 19:32 **[ТС]**

может чото в настройках форм нуно прописывать???

@Sasha · 04.03.2010, 19:35

В настройках форм прописывать ничё не надо

А ты по пробуй написать вместо моего кода во второй форме
вот просто этот

C++
1
Close();

просто на проверку

@Mrak19901124 · 05.03.2010, 11:56 **[ТС]**

Когда прописываю

C++
1
Close();

ошыбки нет но и не делает ничего
если

C++
1
2
3
4
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Close();
}

таже ошыбка в этом оделе кода

C++
1
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)

@NiTan · 05.03.2010, 16:21

Mrak19901124, кажется ты просто вставил вот этот код в Unit2.cpp:

C++
1
2
3
4
5
  
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
SendMessage(FindWindow("TForm1","Form1"),WM_CLOSE,0,0);
}

Но так не делается!!!
Ты должен вставить код:

C++
1
SendMessage(FindWindow("TForm1","Form1"),WM_CLOSE,0,0);

На событие FormClose();
А оно у тебя не обьявленно в Unit2.h
В этом и вся проблема.

@Mrak19901124 · 06.03.2010, 16:56 **[ТС]**

харашо а как обявить собитие FormClose();????

@NiTan · 06.03.2010, 21:10

Выдили Form2.
Зайди во вкладку Events на панели Object Inspector.
Найди OnClose и дважды щелкни по пустой строке справа.
И вставь ту функию (SendMessage(FindWindow("TForm1","Form1") ,WM_CLOSE,0,0);) между фигурными скобками.
Все.

@Mrak19901124 · 07.03.2010, 13:41 **[ТС]**

ребята спасиба ) всё работает !

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого 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) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 18:53 [ТС]
	Sasha, выдайот ошыбку!!! ошыбка [C++ Ошибка] Unit2.cpp(18): E2316 '_fastcall TForm2::FormClose(TObject *,TCloseAction &)' is not a member of 'TForm2' 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	04.03.2010, 19:05
	А попробуй заново создать проект такой же как у тебя щас написано Добавлено через 30 секунд Потомучто у меня так же написано как у тебя и никаких ошибок не выходит 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 19:08 [ТС]
	не всеравно ошыбка [C++ Ошибка] Unit2.cpp(18): E2316 '_fastcall TForm2::FormClose(TObject *,TCloseAction &)' is not a member of 'TForm2' 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	04.03.2010, 19:18
	Странно Добавлено через 5 минут А как ты создаёшь вторую форму? 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 19:21 [ТС]
	Файл-новие-форма! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	04.03.2010, 19:26
	хм странно 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 19:32 [ТС]
	может чото в настройках форм нуно прописывать??? 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	06.03.2010, 16:56 [ТС]
	харашо а как обявить собитие FormClose();???? 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	06.03.2010, 21:10
	Выдили Form2. Зайди во вкладку Events на панели Object Inspector. Найди OnClose и дважды щелкни по пустой строке справа. И вставь ту функию (SendMessage(FindWindow("TForm1","Form1") ,WM_CLOSE,0,0);) между фигурными скобками. Все. 1

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	07.03.2010, 13:41 [ТС]
	ребята спасиба ) всё работает ! 0