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

@Lord_Voodoo · 04.03.2010, 09:54

Mrak19901124,

C++
1
2
Form1->Visible=true;
Form1->Enabled=true;

после ShowModal вернет вам вашу первую форму...

@Mrak19901124 · 04.03.2010, 13:44 **[ТС]**

мне не надо чтобы оно возвращало на главную форму мне надо чтобы при открытии второй формы оно полностю закрыло первую!!

@Lord_Voodoo · 04.03.2010, 16:37

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

@Mrak19901124 · 04.03.2010, 16:43 **[ТС]**

"пользак что-то ввел, нажал на кнопку, появилось новое окно?"
да так но чтобы старое окно с вводом закрылось!
чтобы я мог в любой момент со 2 окна с 3 ...... закрыть полностю програму (хрестиком в правом углу)

просто смотрите если мы делаем так

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();
}

то при закрытии крестиком(в правом верхнем углу) Form2 у нас форм1 будет активной и весеть в процесах!

Или зделать чтобы при закрытии форм2 оно закрывало всю програму в месте з форм 1!

@Sasha · 04.03.2010, 17:10

Mrak19901124, а ты в обработчике второй формы на закрытие напиши так

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

@Mrak19901124 · 04.03.2010, 17:14 **[ТС]**

не катит!!!!!! я также могу написать exit(1) результат один и тотже!!!

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

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

@Black Fregat · 04.03.2010, 17:18

C++
1
2
3
4
5
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
  Application->Terminate(); 
}

@Sasha · 04.03.2010, 17:19

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

не катит!!!!!! я также могу написать exit(1) результат один и тотже!!!

Не может такого быть у меня закрывается программа и не висит в процессах

@Mrak19901124 · 04.03.2010, 17:24 **[ТС]**

если присвоить этот код

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

кнопке какойто то да работает при нажатии на кнопку!!
Я также само могу присвоить код

C++
1
exit(1)

Sasha а ты попробуй создай 2 формы присвой им код на первой форме код кнопки

C++
1
2
3
4
Form1->Visible=false;
Form1->Enabled=false;
Application->CreateForm(__classid(TForm2), &Form2);
  Form2->ShowModal();

на второй форме код кнопки

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

запусти проект нажми на первой форме на кнопку а на второй форме нажми на правый верхний угол окна (закрить програму) и посмотри..

или я просто чегото не понимаю?

а можно ли создать как при создании формы типа
void __fastcall TForm2::FormCreate(TObject *Sender)
{

}

но записать
void __fastcall TForm2::FormClose(TObject *Sender)
{

} ????
если да то как??

@Sasha · 04.03.2010, 17:29

Если честно сказать то уменя вообще не создаётся вторая форма вот этим кодом

C++
1
2
3
Form1->Visible=false;
Form1->Enabled=false;
Application->CreateForm(__classid(TForm2), &Form2);

Добавлено через 57 секунд
А тебе обязательно таким образом создавать вторую форму

@Малыш · 04.03.2010, 17:30

Black Fregat же правильно написал, в чем проблема??

C#
1
2
3
4
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
  Application->Terminate();     
}

@Sasha · 04.03.2010, 17:45

Малыш, просто создаётся вторая форма динамически и поэтому вознткли проблемы с написанием на закрытие этой формы

@NiTan · 04.03.2010, 17:56

Первая форма является главной, а вторая дочерней и поэтому при закрытии первой формы закрывается проект. При нажатии на Button нужно сделать Form2 главной. Но как это сделать при помощи кода я не знаю. Кажется главная форма - это MainForm.

@Sasha · 04.03.2010, 17:58

Вместо вот этого

C++
1
2
3
Form1->Visible=false;
Form1->Enabled=false;
Application->CreateForm(__classid(TForm2), &Form2);

я пишу просто

C++
1
Form2->ShowModal();

И мой код который я приводил ранее он работает

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

Малыш вот в чом проблема во второй форме выводит ошыбку в коде

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

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

Sasha
да он работает но он работает если его присвоить кнопке!!! а мне нада чтобы или при открытии второй формы закрывало первую или хотябы тчоб при закрытии второй формы оно закрывало и первую тоже!!!!!
НО ЗАКРЫТИЕ ПРОГРАМИ НЕ ЧЕРЗ КНОПКУ А ЧЕРЕЗ ХРЕСТИК В ВЕРХНЕМ ПРАВОМ УГЛУ ОКНА!!!

@Sasha · 04.03.2010, 18:46

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

Mrak19901124, а ты в обработчике второй формы на закрытие напиши так

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

Причём тут кнопка я тебе когда это писал я имел ввиду что ты напишешь так

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

@Малыш · 04.03.2010, 18:46

а что тебе мешает создать форму и просто её вызывать?

Form2->ShowModal();

следовательно можно будет воспользоваться ранее предложенным способом

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

)) вопрос не в создании формы вопрос как закрыть форму2 всесте з формой1 з помощю крестика в углу???

@Малыш · 04.03.2010, 18:51

проверил пример который предложил Sasha работает.
именно на крестик

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 13:44 [ТС]
	мне не надо чтобы оно возвращало на главную форму мне надо чтобы при открытии второй формы оно полностю закрыло первую!! 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.03.2010, 16:37
	Mrak19901124, ну вообще закрытие основной формы приведет к закрытию всего приложения... это вам что-то вроде авторизации надо, чтобы пользак что-то ввел, закрыл, появилось новое окно? 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 17:14 [ТС]
	не катит!!!!!! я также могу написать exit(1) результат один и тотже!!! и ещо вопрос у меня иногда выбивает такую ошыбку почему? [Компоновщик Ошибка] Unresolved external '__fastcall TForm1::FormCreate(System::TObject *)' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\123\UNI T1.OBJ 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	04.03.2010, 17:45
	Малыш, просто создаётся вторая форма динамически и поэтому вознткли проблемы с написанием на закрытие этой формы 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	04.03.2010, 17:56
	Первая форма является главной, а вторая дочерней и поэтому при закрытии первой формы закрывается проект. При нажатии на Button нужно сделать Form2 главной. Но как это сделать при помощи кода я не знаю. Кажется главная форма - это MainForm. 0

@Малыш 0 / 0 / 1 Регистрация: 02.12.2009 Сообщений: 13
	04.03.2010, 18:46
	а что тебе мешает создать форму и просто её вызывать? Form2->ShowModal(); следовательно можно будет воспользоваться ранее предложенным способом 0

@Mrak19901124 47 / 12 / 4 Регистрация: 25.02.2010 Сообщений: 259
	04.03.2010, 18:47 [ТС]
	)) вопрос не в создании формы вопрос как закрыть форму2 всесте з формой1 з помощю крестика в углу??? 0

@Малыш 0 / 0 / 1 Регистрация: 02.12.2009 Сообщений: 13
	04.03.2010, 18:51
	проверил пример который предложил Sasha работает. именно на крестик 0