Manitikyl

В теме "Как узнать, что приложение меняет свое состояние?" я спрашивал о состояниях приложений. Так вот обновился с офф.сайта на XE7. Решил уже приложение доделывать тут, и столкнулся с проблемой что приложение не видит BecameActive и WillBecomeInactive. на офф.сайте написано что поддерживает но когда сворачиваю приложение, ничего не происходит. (P.S. aeEnteredBackground и aeWillBecomeForeground - работают при открытии) Если запускать в 6ом, то все работает function TMainMenu.ApplicationEventChanged(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin case AAppEvent of TApplicationEvent.WillBecomeInactive: WriteMEMO('1'); TApplicationEvent.EnteredBackground: WriteMEMO('2'); TApplicationEvent.WillBecomeForeground: WriteMEMO('3'); end; end;

Блин, проблема довольна странная, Прикрепил скриншот с телефона, черный - экран это мое приложение. procedure TForm.FormResize(Sender: TObject); begin Application.FormFactor.Orientations := [TFormOrientation.Landscape]; end; Т.е. когда запускается приложение, оно сначала во весь экран (все нормально), по ширине как надо, но если свернуть, а потом открыть, то оно как-то съезжает, как на картинке(прикрепил), непонятно, т.е. ориентация одновременно и PORT и Land. и криво смотрится, не знаю что делать, какие могут быть причины. P.S. просто хочу чтоб форма всегда была по ширине экрана, даже если свернулся или развернулся. P.S.S. телефон S5, delphi xe5, экран делаю по шаблону S4. (может поможет)

Как в FireMonkey Mobile отловить то, что форма находится в скрытом состоянии, ну т.е. пользователь свернул приложение?

Здравствуйте, требуется ваша помощь, я разрабатываю приложение, и возникло 2 вопроса: Я сделал ориентир Landscape, но если приложение свернуть и развернуть, форма сбивается и уже в кривом порт.виде. Я через MediaPlayer воспроизвожу звуки, но если свернуть приложения звуки все равно играют, как можно "заморозить" приложение, пока оно не активно? Заранее спасибо за уделенное время и ответ