закрытие формы

@tager3 · Регистрация: 02.11.2010

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

подскажите как сделать чтобы форма закрывалась только в том случае

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

@Jazon_deenAlt · 01.12.2010, 11:42

tager3, смотря как проводитса проверка правильности пароля... ну например Application.Terminate - закрывает программу. теперь думайте куды ето вставить ня)

@tager3 · 01.12.2010, 11:58 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text<>memo1.text then
 Begin
  ShowMessage('неверный пароль');
 
  form1.close;
  form16.close;
 End else
 form1.Close;
 
end;

это авторизация

Delphi
1
2
3
4
5
6
7
procedure TForm16.FormActivate(Sender: TObject);
begin
 
Form1.ShowModal
 
 
end;

это главная форма

ВОПРОС как сделать так что если нажимаеш на крести на форме авторизации то главная форма не запускалась тоже

@Jazon_deenAlt · 01.12.2010, 12:38

у формы в events есть такое onclose в него и пишете нужное условие которое будет выполнятса при альт+ф4 или тыцканье на крестеке... вот небольшой

интересный отрывок :

Уничтожение

При уничтожении формы, события генерируются в следующем порядке:

... OnCloseQuery -> OnClose -> OnDeactivate -> OnHide -> OnDestroy

OnCloseQuery

Если мы попытаемся закрыть форму при помощи метода Close либо другим доступным способом (Alt+F4 либо через системное меню), то сгенерируется событие OnCloseQuery. Таким образом, это событие можно использовать, чтобы предотвратить закрытие формы. Обычно, событие OnCloseQuery используется для того, чтобы спросить пользователя - уверен ли он (возможно в приложении остались несохранённые данные).
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Really close this window?', mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;
end;

Обработчик события OnCloseQuery содержит переменную CanClose, которая определяет, можно ли форме закрыться. Изначальное значение этой переменной True. Однако в обработчике OnCloseQuery можно установить возвращаемое значение CloseQuery в False, чтобы прервать выполнение метода Close.

OnClose

Если OnCloseQuery вернул CanClose=True (что указывает на то, что форма должна быть закрыта), то будет будет сгенерировано событие OnClose. Событие OnClose даёт последний шанс, чтобы предотвратить закрытие формы. Обработчик OnClose имеет параметр Action со следующими четырьмя возможными значениями: caNone. Форме не разрешено закрыться. Всё равно, что мы установим CanClose в False в OnCloseQuery. caHide. Вместо закрытия, форма будет скрыта. caFree. Форма будет закрыта, и занятые ей ресурсы будут освобождены. caMinimize. Вместо закрытия, форма будет минимизирована. Это значение устанавливается поумолчанию у дочерних форм MDI.

Замечание: Когда пользователь шутдаунит Windows, то будет вызвано OnCloseQuery, а не OnClose. Если Вы не хотите, чтобы Windows завершила свою работу, то поместите свой код в обработчик события OnCloseQuery, хотя CanClose=False не сделает, того, что сделано здесь.

OnDestroy

После того, как метод OnClose будет обработан и форма будет закрыта, то будет вызвано событие OnDestroy. В OnCreate обычно делаются действия, противоположные тем, которые проделывались в OnCreate, то есть уничтожение созданных объектов и освобождение выделенной памяти.

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

@tager3 · 01.12.2010, 13:28 **[ТС]**

не получается серовно

@Jazon_deenAlt · 01.12.2010, 13:32

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

@tager3 · 01.12.2010, 14:08 **[ТС]**

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

@Jazon_deenAlt · 01.12.2010, 14:44

воть посмотри на такой вариант

@tager3 · 01.12.2010, 14:51 **[ТС]**

да спасибо

@tager3 · 01.12.2010, 22:16 **[ТС]**

ппц блин, все сделал также , а появляется главная форма сразу, не могу понять в чем проблема, е мое, все перекопал уже

@Jazon_deenAlt · 02.12.2010, 10:52

открой unit Project16 он у тебя выглядит так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Project16;
 
uses
  Forms,
  Unit16 in 'Unit16.pas' {Form16},
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

сделай его таким:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Project16;
 
uses
  Forms,
  Unit16 in 'Unit16.pas' {Form16},
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm16, Form16);
  Application.Run;
end.

должно быть тебе счастье

@Александр rootk · 02.12.2010, 10:54

у меня делфи не работает что делать?

@mstislava · 25.02.2011, 14:38

господа! подскажите пожалуйста как закрыть форму (модальную), чтобы при следующем обращении к ней поля снова были пустыми (если пишу Close, то при следующем вызове формы во всяких edit'ах и listbox'ах остаются данные с предыдущего вызова). формы нужны для ввода данных, потому периодически вызываются и закрываются..

Добавлено через 1 час 44 минуты
вопрос снят)

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140

	закрытие формы 01.12.2010, 11:32. Показов 22893. Ответов 12 Метки нет (Все метки) подскажите как сделать чтобы форма закрывалась только в том случае если введеный пароль на другой форме не правильный, либо нажали на крестик (справа сверху) 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	01.12.2010, 11:42
	tager3, смотря как проводитса проверка правильности пароля... ну например Application.Terminate - закрывает программу. теперь думайте куды ето вставить ня) 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	01.12.2010, 12:38
	у формы в events есть такое onclose в него и пишете нужное условие которое будет выполнятса при альт+ф4 или тыцканье на крестеке... вот небольшой интересный отрывок : Уничтожение При уничтожении формы, события генерируются в следующем порядке: ... OnCloseQuery -> OnClose -> OnDeactivate -> OnHide -> OnDestroy OnCloseQuery Если мы попытаемся закрыть форму при помощи метода Close либо другим доступным способом (Alt+F4 либо через системное меню), то сгенерируется событие OnCloseQuery. Таким образом, это событие можно использовать, чтобы предотвратить закрытие формы. Обычно, событие OnCloseQuery используется для того, чтобы спросить пользователя - уверен ли он (возможно в приложении остались несохранённые данные). procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Really close this window?', mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then CanClose := False; end; Обработчик события OnCloseQuery содержит переменную CanClose, которая определяет, можно ли форме закрыться. Изначальное значение этой переменной True. Однако в обработчике OnCloseQuery можно установить возвращаемое значение CloseQuery в False, чтобы прервать выполнение метода Close. OnClose Если OnCloseQuery вернул CanClose=True (что указывает на то, что форма должна быть закрыта), то будет будет сгенерировано событие OnClose. Событие OnClose даёт последний шанс, чтобы предотвратить закрытие формы. Обработчик OnClose имеет параметр Action со следующими четырьмя возможными значениями: caNone. Форме не разрешено закрыться. Всё равно, что мы установим CanClose в False в OnCloseQuery. caHide. Вместо закрытия, форма будет скрыта. caFree. Форма будет закрыта, и занятые ей ресурсы будут освобождены. caMinimize. Вместо закрытия, форма будет минимизирована. Это значение устанавливается поумолчанию у дочерних форм MDI. Замечание: Когда пользователь шутдаунит Windows, то будет вызвано OnCloseQuery, а не OnClose. Если Вы не хотите, чтобы Windows завершила свою работу, то поместите свой код в обработчик события OnCloseQuery, хотя CanClose=False не сделает, того, что сделано здесь. OnDestroy После того, как метод OnClose будет обработан и форма будет закрыта, то будет вызвано событие OnDestroy. В OnCreate обычно делаются действия, противоположные тем, которые проделывались в OnCreate, то есть уничтожение созданных объектов и освобождение выделенной памяти. Естевственно, что когда главная форма проекта будет закрыто, то приложение будет завершено. 1

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140
	01.12.2010, 13:28 [ТС]
	не получается серовно 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	01.12.2010, 13:32
	tager3, ну тогда чем я могу вам помочь? кинте проект и скажыте что надо точно сделать и я ето вам вкручю... ну или пробуйте дальше) 0

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140
	01.12.2010, 14:51 [ТС]
	да спасибо 0

@Александр rootk Заблокирован
	02.12.2010, 10:54
	у меня делфи не работает что делать? 0

@mstislava 0 / 0 / 0 Регистрация: 21.02.2011 Сообщений: 9
	25.02.2011, 14:38
	господа! подскажите пожалуйста как закрыть форму (модальную), чтобы при следующем обращении к ней поля снова были пустыми (если пишу Close, то при следующем вызове формы во всяких edit'ах и listbox'ах остаются данные с предыдущего вызова). формы нужны для ввода данных, потому периодически вызываются и закрываются.. Добавлено через 1 час 44 минуты вопрос снят) 0