Лидеры

Как отловить Redirect??

Вы у всех выделенных мною контролов (myStyle1, layout1, description, headtext) на картинке установили HitTest = False?

А на 2015 я думаю через пару месяцев распишут стратегию)

Здравствуйте, Прочитав тему http://fire-monkey.ru/topic/432-sovety-po-sozdaniiu-mobilnogo-prilozheniia-master-detail/?p=1638 решил переделать свое приложение с использованием Frame, подскажите правильно ли я его делаю Primer.zip

Добрый день, Да, выглядит достойно. Один только момент относительно использования компонента TMultiView: Он создает дополнительный контрол (TShadowedOverlayLayout), который перехватывает события касаний для определения момента выдвижения с края формы. Поэтому для этого контрола важно всегда находится поверх всех контролов формы. В тот момент, когда вы подключаете фрейм, фрейм по сути становится BringToFront и перекрывает TShadowedOverlayLayout и блокирует выдвижение TMultiView. Чтобы этого избежать есть два варианта: Первый вариант, дополнительно обновить выравнивание TMultiView в момент прикрепления фрейма: procedure TfmMain.TabItemNext(ANextFrame: TFrameClass); begin FFrame.DisposeOf; FFrame := nil; FFrame := ANextFrame.Create(Self); FFrame.Parent := Self; FFrame.Align := TAlignLayout.Client; // Если TMultiVIew использует Drawer режим, то перемещает контрол перехвата на верх. if mvMenu.Presenter is TMultiViewDrawerBasePresentation then TMultiViewDrawerBasePresentation(mvMenu.Presenter).DetailOverlay.BringToFront; mvMenu.HideMaster; end; Второй вариант, является в более хитрой комбинации TMultiView.TargetControl и фреймов и не требует дополнительно обращаться к drawer представлению TMultiView: Размещаем в корне формы TPanel или TLayout. Фрейм размещаем в TPanel или TLayout (см. 1 пункт). procedure TfmMain.TabItemNext(ANextFrame: TFrameClass); begin FFrame.DisposeOf; FFrame := nil; FFrame := ANextFrame.Create(Self); FFrame.Parent := Panel1; // <-- а при втором подходе размещаем фрейм в дополнительном контейнере FFrame.Align := TAlignLayout.Client; mvMenu.HideMaster; end; TMutliView при загрузке представления (смены режима отображения) размещает TShadowedOverlayLayout в корне формы и отображает его по верх всех контролов формы. При использовании панели или слоя, TShadowedOverlayLayout будет всегда расположен поверх.

Это кто же вам такую ерунду то сказал? Почитайте "Delphi. Программирование для Windows, OS X, iOS и Android": Глава 24. Мультиязычные проекты: Компонент языковой поддержки TLang Режим автоматического перевода Перевод меню Ссылка 1, Ссылка 2

Это не подойдет, или это?

Ну вот, отвечаю опять на свой вопрос сам. procedure TfrJournalQuestionnaire.ClickQuestionnaireEdit(Sender: TObject); function GetItem(AControl: TControl): TQuestionnaireItem; begin while not (AControl.Parent is TQuestionnaireItem) do AControl := TControl(AControl.Parent); Result := TQuestionnaireItem(AControl.Parent); end; begin ShowMessage( GetItem(TControl(Sender)).QuestionnaireId.ToString ); end;

Одним вызовом передать два Intent-а? Никак, ибо функции типа startActivity() принимают только один экземпляр. Зато в один Intent можно напихать довольно много разнородной информации используя разнообразные Exstra.

Доброе время суток! Среда: RAD Studio Delphi XE5 Устройство: Android 4.0.4, HTC Incredible S Столкнулся со следующей проблемой, необходимо использовать браузер для аутентификации пользователя. Как Вы наверное знаете, компонент TWebBrowser не имеет фокуса ввода, то есть виртуальная клавиатура не отображается при клике на поле ввода в браузере. лечится такая фигня строками кода webbrowser1.canfocus := true; webbrowser1.SetFocus; НО!!! оказывается после таких строк фокус ввода не переходит на обычные поля вводя, типа TEdit. Даже строки edit6.canfocus := true; edit6.SetFocus; не помогают. Что делать??? Да, забыл сказать, что прога под Андроид