Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


Major

Вопрос

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

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

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

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

Ссылка на комментарий

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

  • 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 пользователей онлайн

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