0

Создана модальная форма:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Panel1.Hide;
 GetName := TGetName.Create(Self);
 GetName.ShowModal;
end;

После открытия Form1, GetName успешно закрывается командой GetName.Close;. Как закрыть всю программу если пользователь передумал вводить имя в GetName и решил закрыть программу, путем нажатия на крестик?

1 ответ 1

3

Надо использовать ModalResult:

if GetName.ShowModal <> mrOK then
    Form1.Close;

В форме ввода имени следует прописать ModalResult := mrOk либо назначить свойство ModalResult соответствующей кнопке.

2
  • в этом случае открывается (повторно) форма GetName 3 янв 2018 в 10:33
  • 1
    Ну первый ShowModal-то сотрите.
    – Alekcvp
    4 янв 2018 в 5:11

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.