Перейти к содержанию
  • Регистрация
  • 0
Major

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

Вопрос

Под Андроидом вызываю окно запроса так:

TDialogService.MessageDialog('Уверены?', TMsgDlgType.mtConfirmation,
      mbYesNo, TMsgDlgBtn.mbNo, 0,
      procedure(const AResult: TModalResult)
      begin
        if (AResult = mrYes) then
          ...;
      end);

Но окно такое унылое (черно-белое).

Есть ли способ вызывать такие окна с картинками и разными цветами (но без создания отдельной формы)?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 0

Вообще стандартные диалоговые окна на то и стандартные, чтобы юзеру привычно было.

А если так хочется свои - то да, придется форму создавать.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

ну вот такая есть штука у меня

Спойлер

photo_2017-01-22_23-13-32.jpgphoto_2017-01-22_23-13-28.jpgphoto_2017-01-22_23-13-21.jpg

 

Это нативные окошки пока только под андроид

NativeView.zip

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
3 часа назад, Равиль Зарипов (ZuBy) сказал:

ну вот такая есть штука у меня

  Скрыть контент

photo_2017-01-22_23-13-32.jpgphoto_2017-01-22_23-13-28.jpgphoto_2017-01-22_23-13-21.jpg

 

Это нативные окошки пока только под андроид

NativeView.zip

 

а что такое "нативные окошки"? я понимаю, что нативный означает родной, но что это означает применительно к Андроиду?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
Только что, Major сказал:

а что такое "нативные окошки"? я понимаю, что нативный означает родной, но что это означает применительно к Андроиду?

ну это и есть родные окошки андроида, с родными стилями (Dark, Light)

в окошках не используются делфи контролы

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

как вам этот модуль? меня только aNativeView := TNativeView.Create(nil) смущает

unit native_message;

interface

uses FMX.NativeView, FMX.NativeView.Types, FMX.Dialogs;

procedure ToguzNative_ShowMessage(MyStr: String);

implementation

procedure Native_ShowMessage(MessageStr, ProgramName: String);
var
  aNativeView: TNativeView;
begin
  aNativeView := TNativeView.Create(nil);
  aNativeView.Title := ProgramName;
  aNativeView.Text := MessageStr;
  aNativeView.PositiveButtonText := 'OK';

  aNativeView.Theme := TNativeViewTheme.Dark;
  aNativeView.Cancelable := True;

  if aNativeView.Supported then
    aNativeView.Show
  else
    ShowMessage(MessageStr);
end;

end.

 

Изменено пользователем Major

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...