Запрос и подтверждение закрытия мобильной формы

[x11]

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

Как правильно в событии UnimFormClose показать окно с кнопками Да/Нет?

 Если пользователь ввел данные и случайно нажал на кнопку закрытия окна, как запросить у пользователя подтверждение?

[x11]

up

[Sherzod]

On 10/9/2020 at 6:05 PM, x11 said:

Как правильно в событии UnimFormClose показать окно с кнопками Да/Нет?

UniMainModule.EnableSynchronousOperation = True - это один из способов:

procedure TMainmForm.UnimFormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('Вы действительно хотите закрыть окно?', mtConfirmation, [mbYes, mbNo]) <> mrYes then
    Action := caNone

end;

http://unigui.com/doc/online_help/synch-and-asynch-operations.htm

[x11]

1 hour ago, Sherzod said:

EnableSynchronousOperation

Нет, спасибо.

Это повлияет на работу всего приложения

[Sherzod]

11 minutes ago, x11 said:

Нет, спасибо.

Ок. Остаётся тогда, проанализировать асинхронный код.

[x11]

В uniMainModule есть свойство BackButtonAction.

Т.е. когда нажимаешь кнопку Назад в браузере, то появляется подтверждающий диалог, где можно нажать Отмена.

Это я к тому, что у uniGui какой-то механизм диалогов подтверждения есть?

 

Может быть можно придумать что-то с callback-функцией?

[x11]

Вроде бы получилось

 

...
  private
    bAllowClose: boolean; // по умолчанию False 
...
...
procedure TfmmParentObject.UnimFormClose(Sender: TObject; var Action: TCloseAction);
begin
  if bAllowClose then
  begin
    Action := caFree;// когда вызвали закрытие через CloseCallbackAnonProc
    exit;
  end
  else
    Action := caNone;// ничего не делать

  MessageDlg('Закрыть окно', mtWarning, mbYesNo, CloseCallbackAnonProc);
end;

procedure TfmmParentObject.CloseCallbackAnonProc(Sender: TComponent; Res: Integer);
begin
  if Res = mrYes then
  begin
    bAllowClose := True;
    close;// снова вызываем закрытие окна
  end;
end;

Было бы хорошо, если бы у форм были какие-то встроенные свойства.

[Sherzod]

45 minutes ago, x11 said:

Может быть можно придумать что-то с callback-функцией?

Все правильно.

[x11]

стандартная тема triton, стандартный диалог MessageDlg() - шрифт заголовка великоват или полоса заголовка слишком мала - некрасиво

[Sherzod]

23 minutes ago, x11 said:

Хмм.

[x11]

что-то с customCSS, буду искать

[x11]

Нашел. Это я уменьшал заголовки unimPanel.

Получается, что в uniGUI заголовок unimPanel связан с заголовком диалоговых окон. Вы считаете, что так правильно? Совершенно разные ведь компоненты.

Как-то нелогично применять x-panelheader к заголовку окна, по моему скромному мнению.

[Sherzod]

[x11]

хм... и зачем они так сделали? ну ок.

В общем, исправил у себя

/*высота заголовка панелей*/
.x-big .x-panelheader.x-horizontal.x-noborder-trl {
    min-height: 10px;
    height: 20px;
}

добавил ".x-noborder-trl"