Два вопроса по модальным окнам

[Ллирик]

Вопрос 1. Как закрыть приложение из модального окна на андроиде? Делаю так:

procedure ExitQwery(MainSelf: TForm);
var
  FormExitQwery: TFormExitQwery;
begin
  Application.CreateForm(TFormExitQwery, FormExitQwery);
  FormExitQwery.BringToFront;
  FormExitQwery.StyleBook := MainSelf.StyleBook;
  FormExitQwery.Label1.Width := 1;
  FormExitQwery.ShowModal(
    procedure(Result: TModalResult)
    begin
      if Result = mrOk then
      begin
              FormExitQwery.Free;
              MainSelf.Close;
              MainSelf.Free;
 Application.Terminate;
       end
      else if Result = mrCancel then
      begin
        FormExitQwery.CloseModal;
        FormExitQwery.Free;
      end;

    end);
end;

procedure TFormExitQwery.Close(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;

end.

, но приложение не закрывается.

 

Вопрос 2. По нажатию на TImage и по таймеру создаются два модальных окна

procedure ShowMessageModal(Self: TForm; const AMessage: string;
  ADefProc: TProc);
var
  locMessageForm: TMessageForm;
begin
  Application.CreateForm(TMessageForm, locMessageForm);
  locMessageForm.BringToFront;
  // locMessageForm.ModalResult := mrOk;
  locMessageForm.CurWidth := false;
  locMessageForm.SelfWidth := Self.Width;
  locMessageForm.StyleBook := Self.StyleBook;
//  locMessageForm.Parent := Self;
  locMessageForm.MessText.BeginUpdate;
  locMessageForm.MessText.Text := AMessage;
  locMessageForm.MessText.EndUpdate;
  locMessageForm.ButtonHeight := Round(locMessageForm.Buttton.Height);
  locMessageForm.ButtonWidth := Round(locMessageForm.Buttton.Width) + 24;
  locMessageForm.MessText.Width := 1;
  locMessageForm.Buttton.ModalResult := mrOk;
  locMessageForm.showModal(
    procedure(Result: TModalResult)
    begin
      if Result = mrOk then
      begin
        ADefProc();
        locMessageForm.CloseModal;
      end;
    end);
end;

end.

Если на экране смартфона уже есть окно от нажатия на TImage, то окно по таймеру уже не показывается. Как быть?

[krapotkin]

не нужно ничего закрывать из модального окна. и в других ОС тоже.

его нужно использовать как и везде для диалога с юзером.

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

соответственно if Result = mrOk then Application.Terminate;

procedure ExitQwery(MainSelf: TForm);

 

[Ллирик]

9 часов назад, krapotkin сказал:

не нужно ничего закрывать из модального окна. и в других ОС тоже.

его нужно использовать как и везде для диалога с юзером.

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

соответственно if Result = mrOk then Application.Terminate;

procedure ExitQwery(MainSelf: TForm);

 

Не понял, а я как тогда сделал? Чем Ваш код отличается от моего? И у меня главный вопрос всё таки второй. Он вообще никак не связан с первым

[chaplin.u@gmail.com]

может проблема в этом : 

locMessageForm.Buttton.ModalResult := mrOk;

[Ллирик]

8 минут назад, chaplin.u@gmail.com сказал:

может проблема в этом : 

locMessageForm.Buttton.ModalResult := mrOk;

А как я тогда узнаю, что произошло нажатие кнопки ОК? В винде всё работает, проблема только на андроиде

[chaplin.u@gmail.com]

Я имею ввиду 

Buttton

как говорит Леонид Якубович : в этом слове есть 3 такие буквы значит вам полагается шкатулочка...

[Ллирик]

50 минут назад, chaplin.u@gmail.com сказал:

Я имею ввиду 

Buttton

как говорит Леонид Якубович : в этом слове есть 3 такие буквы значит вам полагается шкатулочка...

Если тут была бы ошибка, то компилятор просто бы не скомпилировал программу) Так что тут никакой ошибки нет))

[chaplin.u@gmail.com]

ну как знаешь

[krapotkin]

все там показывается

сколько ни создай окон

они так друг на друге и сидят

[Ллирик]

5 часов назад, krapotkin сказал:

все там показывается

сколько ни создай окон

они так друг на друге и сидят

Глюк появляется, когда у модальной формы включён Transparency

[Равиль Зарипов (ZuBy)]

посмотрите вот этот пример

[Ллирик]

17 часов назад, Равиль Зарипов (ZuBy) сказал:

посмотрите вот этот пример

Если в Вашем примере добавить вызов TMyMsgDlg.Create по таймеру, например так

procedure TFormMain.Button3Click(Sender: TObject);
var
  mY: TMyMsgDlg;
begin
  mY := TMyMsgDlg.Create('Вывести сообщение по закрытию окна?', self,
    procedure
    begin
      ShowMessage('Сообщение по закрытию окна');
    end, false);
  mY.ShowMe;
  timerr := 10;
  Timer1.Enabled := true;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
var
  mY: TMyMsgDlg;
begin
Timerr := Timerr -1;
if Timerr = 0 then begin
Timer1.Enabled := false;
  mY := TMyMsgDlg.Create('Таймер сработал!!!! Вывести сообщение по закрытию окна?', self,
    procedure
    begin
      ShowMessage('Сообщение по закрытию окна');
    end, false);
  mY.ShowMe;
  end;
end;

, то на андроиде будет точно такой же глюк, как у меня, то есть если на экране сообщение 'Вывести сообщение по закрытию окна?', то сообщение 'Таймер сработал!!!! Вывести сообщение по закрытию окна?' на экране не появится

[krapotkin]

что вообще происходит?

вам нужно вызвать диалог через 10 секунд?

[Равиль Зарипов (ZuBy)]

5 минут назад, krapotkin сказал:

что вообще происходит?

вам нужно вызвать диалог через 10 секунд?

извращение какое-то происходит

[Kitty]

В этой теме:

http://fire-monkey.ru/topic/3760-there-is-no-overloaded-version-of-messagedialog-that-can-be-called-with-these-arguments/#comment-23646

я хотела ответить автору кодом из С++ Builder и скриншотами, что он не прав. Но жаль, что тему закрыли.

Изменено 14 февраля, 2017 пользователем Kitty

[Ллирик]

4 часа назад, krapotkin сказал:

что вообще происходит?

вам нужно вызвать диалог через 10 секунд?

Так это просто пример) В моем приложении таймер устанавливается на 30 секунд и срабатывает отдельно от других диалогов, если пользователь не успел правильно ответить на вопрос

Изменено 14 февраля, 2017 пользователем Ллирик

[Ллирик]

1 час назад, Kitty сказал:

В этой теме:

http://fire-monkey.ru/topic/3760-there-is-no-overloaded-version-of-messagedialog-that-can-be-called-with-these-arguments/#comment-23646

я хотела ответить автору кодом из С++ Builder и скриншотами, что он не прав. Но жаль, что тему закрыли.

И в чём же я был не прав, Сударыня?

[krapotkin]

в том, что на билдере выполнение процедуры останавливается в ShowMessage

код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Text = L"До";
   ShowMessage(L"Привет");
   Label1->Text = L"После";
}

[krapotkin]

по поводу алгоритма закрытия формы через N секунд

нужно вызвать из таймера диалог с сообщением. (лучше взять у ZuBy уже предложенную библиотеку MyDialogs. я начинал ее делать именно из-за того, что стандартные диалоги не вывозят)

а на закрытие диалога повесить form.Release

тогда все будет как вы хотите

сначала выйдет сообщение. Потом закроется форма

[Ллирик]

1 час назад, krapotkin сказал:

в том, что на билдере выполнение процедуры останавливается в ShowMessage

код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Text = L"До";
   ShowMessage(L"Привет");
   Label1->Text = L"После";
}

 

Да, действительно код не останавливается. Но четыре месяца назад я писал приложение в билдере, в котором при вызове ShowMessage выполнение кода останавливалось и мой друг может это подтвердить)  В общем чудеса какие-то.....)

 

1 час назад, krapotkin сказал:

по поводу алгоритма закрытия формы через N секунд

нужно вызвать из таймера диалог с сообщением. (лучше взять у ZuBy уже предложенную библиотеку MyDialogs. я начинал ее делать именно из-за того, что стандартные диалоги не вывозят)

а на закрытие диалога повесить form.Release

тогда все будет как вы хотите

сначала выйдет сообщение. Потом закроется форма

Так мне не нужно, чтобы форма сама закрывалась

[Kitty]

Цитата

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

Или покойный театральный гуру Станиславский c его знаменитой фразой "НЕ ВЕРЮ!" не прав, или не прав krapotkin.

Оба варианта говорят, что не прав Ллирик...

Изменено 14 февраля, 2017 пользователем Kitty

[Ллирик]

Проблему решил создав диалог не на классе TForm,  а на классе TPanel.