• 0
Major

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

Вопросы

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

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

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

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

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


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

6 ответов на этот вопрос

  • 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

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


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

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

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


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

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

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

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