Поиск сообщества
Показаны результаты для тегов 'tframe'.
Найдено: 3 результата
-
добрый день, у меня есть несколько TabItems in FMX- TabControl (как на вложенной картинке) один из которых заполняется динамически: FindAndDeleteItemContext; frameIndex:= GetFrameIndexByText(item); {factory} FFramesFactory:= TFramesFactory.DefaultFactory; {Index-> Frame} aktFrame:= FFramesFactory.GetFrame(frameIndex); {add to layout} aktFrame.Parent:= LyContent; aktFrame.Align:= TAlignLayout.Client; LyContent.AddObject(aktFrame); {open tab} ActionToContentTabExecute(Sender); я пытаюсь найти фрейм и удалить его только из TabItem но не как Object обследующим способом: procedure Txxx.FindAndDeleteItemContext; var i: Integer; begin for i:= 0 to Pred(LyContent.ComponentCount) do begin if LyContent.Controls.Items[i] is TFrame then LyContent.RemoveObject(i); end; end но почему- то LyContent.ComponentCount всегда равен 0. Подскажите пожалуйста что неправильно? Спасибо.
-
Программа имеет большое кол. элементов интерфейса и много экранов. Поэтому я сделал такую вещь - Таб контрол, на котором лежит часть постоянно загружаемого интерфейса, и одна закладка (tabPage) куда загружаются фреймы - там лежат редко используемые экраны, т.е. фрэйм создаю в runtime, ставлю фрэйму MyFrame.Parent := FrameTabPage и показываю этот таб кодом TabControl.SetActiveTabWithTransition Юзер ушел с этой страницы я убираю фрейм кодом MyFrame.Parent := nil Все работает, но проблема в том что это сильно подтормаживает систему - в результате анимация Slide таба двигается рывками. Тормозит на этапе MyFrame.Parent := FrameTabPage, т.е. даже если я создам фрейм на этапе старта программы, то все равно будет тормозить на этом этапе MyFrame.Parent := FrameTabPage (видимо подгоняются размеры, на фрейме лежит ListBox с контролами ). . Если Parent фрэйма заранее поставить на нужный TabPage, то ничего не тормозит, но программа грузится дольше. Посоветуйте пожалуйста что можно тут придумать, ведь кто-то использует фреймы.. -
В общем проверьте - у вас тоже будет ошибка вылетать если использовать TWebBrowser на TFrame? Вылетает ошибка: TWebBug.7z Если кто то столкнется с этим багом - создавайте динамически TWebBrowser на фрейме - тогда нормально все. В общем, если кто то сталкивался с этим, и знает как обойти - скажите плиз Обходим так: Во время создания: constructor TFrame1.Create(AOwner: TComponent); begin inherited; fWeb := TWebBrowser.Create(Self); end; После того, как форма создана(событие OnShow) procedure TFrame1.OpenURL(const URL: String); begin fWeb.Parent := Self; fWeb.Align := TAlignLayout.Client; fWeb.Navigate(URL); end;
