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 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

@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