Firemonkey форма показа в полноэкранном режиме на Android - PullRequest
Новая
       23

Firemonkey форма показа в полноэкранном режиме на Android

0 голосов
/ 20 апреля 2020

Я делаю свою собственную форму "InputQuery". 

procedure TForm3SApp.recAppelerNumeroClick(Sender: TObject);
var
   FInputQuery: TFormInputQuery;
begin
   FInputQuery := TFormInputQuery.Create(Self);
   FInputQuery.Width   := ClientWidth - 40;
   FInputQuery.Title   := 'Appeler';
   FInputQuery.Message := 'Voulez-vous appeler le ' + FNumeroUrgence.Names[FiNumeroUrgence] + ' ?';

   FInputQuery.ShowModal(procedure(ModalResult: TModalResult)
   begin
      if ModalResult = mrOK then
         Appeler(FNumeroUrgence.Names[FiNumeroUrgence]);
      FInputQuery.DisposeOf;
   end

В моем TFormInputQuery я устанавливаю: 

BorderStyle = None
BorderIcons = [] (none)
FormStyle = StayOnTop
FullScreen = False
Position = ScreenCenter

Вкл. Windows все в порядке, но когда я открываю свой приложение на Android, мой TFormInputQuery отображается в полноэкранном режиме, есть идеи, как это исправить?

...