При создании программы необходимо сделать чтобы вторая форма нормально закрывалась без первой

@2ima · Регистрация: 28.04.2013

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

При создании программы появился вопрос:как сделать чтобы вторая форма нормально закрывалась без первой.
float password, us;

C++
1
2
password=1;
if(password==StrToFloat(Edit1->Text)){Form1->Show();Form2->Visible=false; ShowMessage(Спасибо, что зашли, "+Edit2->Text);}

Вопрос в том, что закрывая Form1 не закрывается Form2....

Добавлено через 34 минуты
Это правильная тема

@mish_k98 · 02.07.2013, 21:00

Form2->Close, если 2 не главная

@2ima · 03.07.2013, 12:06 **[ТС]**

НЕ,немного не то,надо чтоб форма 1 закрывалась и после этого вторая становилась главной!(Чтобы после ввода пароля 1 закрылась, а вторая осталась и закрывалась нормально(при простом закрытии второй ругается и не закрывает приложение)8)

@volvo · 03.07.2013, 13:18

А зачем ты форму авторизации делаешь главной формой приложения (хотя бы даже и временно)? Это неправильный подход, не надо так делать. Форма авторизации должна создаваться еще до того, как вызывается Application->Initialize();

Подробнее: Display a LogIn / Password Dialog Before the Main Form is Created
(копия в Wayback Machine)

@mish_k98 · 03.07.2013, 13:20

мне тоже надо такая фигня.пробовал разное, но не выходит

@volvo · 03.07.2013, 13:23

Плохо пробовал, значит. У меня выходит. А твоих попыток, чтобы посмотреть, где неправильно, я не вижу...

@mish_k98 · 03.07.2013, 13:25

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

@dunmaksim · 03.07.2013, 13:37

Могу сказать, как я делал это в Delphi.
В настройках проекта делаешь главной формой приложения только свою Form2 (переименуй, имя не самое лучшее, лучше всего MainForm или типа того). Форму авторизации (Form1) помещаешь в список Avaliable Forms.
После этого прописываешь в файле запуска приложения примерно следующее (Delphi)

Delphi
1
2
3
4
5
6
with TForm1 do
if Execute then
    begin
      Application.CreateForm(Form1, TForm2);
      Application.Run;
    end;

При этом в классе TForm1 нужно определить публичный метод класса Execute:

Delphi
1
2
3
4
5
TForm1 = class (TForm)
...
public
    class function Execute(): Boolean;
...

В реализации которого надо написать:

Delphi
1
2
3
4
5
with TForm1.Create(nil) do
begin
    Result := ShowModal = mrOK; //Проверяем авторизацию
    Release; //То же самое, что Free, только для потомков класса TForm
end;

На обработчик кнопки OKBtn нужно повесить следующую процедуру:

Delphi
1
2
3
4
5
6
7
8
9
procedure OKBtnClick(Sender: TObject);
begin
    Login := LoginEdit.Text;
    Password := PassEdit.Text;
    if (Такие логин и пароль есть в базе и учетная запись не заблокирована) then
        ModalResult := mrOK;
    //Присваивать другое значение не надо - форма закроется и всё, 
    //а ведь надо выдать сообщение, что авторизация не удалась, но это уже сам
end;

@volvo · 03.07.2013, 13:54

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

не могли бы вы обяснить, что за чем делать

Собственно форма авторизации:

header

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
class TForm2 : public TForm
{
__published:    // IDE-managed Components
    TButton *btnOk;
    TButton *btnCancel;
    TEdit *Edit1;
    void __fastcall btnOkClick(TObject *Sender);
    void __fastcall btnCancelClick(TObject *Sender);
private:
public:
    __fastcall TForm2(TComponent* Owner);
    static bool __fastcall Execute();
};

CPP

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#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::btnOkClick(TObject *Sender)
{
    // Я сделал так, для теста, добавь сюда проверку пароля
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::btnCancelClick(TObject *Sender)
{
    ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
 
bool __fastcall TForm2::Execute()
{
    bool Result;
    TForm2 *LoginForm = new TForm2(NULL);
    try
    {
        Result = (LoginForm->ShowModal() == mrOk);
    }
    __finally
    {
        delete LoginForm;
    }
    return Result;
}

Файл проекта (Project->View source), добавляешь вот это:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#include <vcl.h>
#pragma hdrstop
 
#include <tchar.h>
#include "Unit2.h" // Подключаешь header формы авторизации
 
USEFORM("Unit1.cpp", Form1);
 
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        if(TForm2::Execute()) // <--- Именно вот эту строку
        {
            Application->Initialize();
            Application->MainFormOnTaskBar = true;
            Application->CreateForm(__classid(TForm1), &Form1);
            Application->Run();
        }
        else
        {
            Application->MessageBox(L"Incorrect Password", L"Error"); // Реагируем на неверную авторизацию
        }
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}

@2ima · 03.07.2013, 16:28 **[ТС]**

Щас разберусь и расскажу на С++)

@volvo · 03.07.2013, 19:19

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

Щас разберусь и расскажу на С++)

А предыдущее сообщение читать не пробовал? Оно что, на Бейсике написано?

@2ima · 04.07.2013, 11:00 **[ТС]**

Я просто тогда еще не увидел=)

@pvl_vines · 26.08.2021, 05:27

C++
1
2
3
4
5
6
7
8
try
    {
        if(TForm2::Execute()) // <--- Именно вот эту строку
        {
            Application->Initialize();
            Application->MainFormOnTaskBar = true;
            Application->CreateForm(__classid(TForm1), &Form1);
            Application->Run();

... пробую этот код добавить в билдере - ругается на Execute()...
Как запустить форму с диалогом про пароль?

Добавлено через 1 час 31 минуту
... разобрался, в header забыл заглянуть, все работает, спасибо в любом случае - инфа пригодилась!

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@mish_k98 164 / 49 / 27 Регистрация: 04.06.2013 Сообщений: 636
	02.07.2013, 21:00
	Form2->Close, если 2 не главная 0

@2ima ☆ Форумчанин(FSC)☆ 911 / 292 / 27 Регистрация: 28.04.2013 Сообщений: 2,466 Записей в блоге: 10
	03.07.2013, 12:06 [ТС]
	НЕ,немного не то,надо чтоб форма 1 закрывалась и после этого вторая становилась главной!(Чтобы после ввода пароля 1 закрылась, а вторая осталась и закрывалась нормально(при простом закрытии второй ругается и не закрывает приложение)8) Миниатюры 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	03.07.2013, 13:18
	А зачем ты форму авторизации делаешь главной формой приложения (хотя бы даже и временно)? Это неправильный подход, не надо так делать. Форма авторизации должна создаваться еще до того, как вызывается Application->Initialize(); Подробнее: Display a LogIn / Password Dialog Before the Main Form is Created (копия в Wayback Machine) 0

@mish_k98 164 / 49 / 27 Регистрация: 04.06.2013 Сообщений: 636
	03.07.2013, 13:20
	мне тоже надо такая фигня.пробовал разное, но не выходит 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	03.07.2013, 13:23
	Плохо пробовал, значит. У меня выходит. А твоих попыток, чтобы посмотреть, где неправильно, я не вижу... 0

@mish_k98 164 / 49 / 27 Регистрация: 04.06.2013 Сообщений: 636
	03.07.2013, 13:25
	посмотрел вашу ссылку,но не очень понемаю, так как слабоват в английском.не могли бы вы обяснить, что за чем делать 0

@2ima ☆ Форумчанин(FSC)☆ 911 / 292 / 27 Регистрация: 28.04.2013 Сообщений: 2,466 Записей в блоге: 10
	03.07.2013, 16:28 [ТС]
	Щас разберусь и расскажу на С++) 0

@2ima ☆ Форумчанин(FSC)☆ 911 / 292 / 27 Регистрация: 28.04.2013 Сообщений: 2,466 Записей в блоге: 10
	04.07.2013, 11:00 [ТС]
	Я просто тогда еще не увидел=) 0

При создании программы необходимо сделать чтобы вторая форма нормально закрывалась без первой

Решение