Лидеры

Официальный сайт: http://aeronavigator.ru/index.php/ru/products Автор: Aeronavigator Ссылка на приложения: Google Play, App Store Подробное описание: aeronavigatorstory-ru.pdf

Чтоб лишний раз не менялась, добавил проверку на текущий тип if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) and (TVirtualKeyboardState.Visible in KeyboardService.VirtualKeyboardState) and (aEdit.KeyboardType <> FCurVKType) then begin KeyboardService.HideVirtualKeyboard; KeyboardService.ShowVirtualKeyboard(aEdit); FCurVKType := aEdit.KeyboardType; end; tstVK.zip

procedure TForm1.Edit1Enter(Sender: TObject); begin CheckVK(Edit1); end; procedure TForm1.Edit2Enter(Sender: TObject); begin CheckVK(Edit2); end; procedure TForm1.CheckVK(const aEdit: TEdit); var KeyboardService: IFMXVirtualKeyboardService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) and (TVirtualKeyboardState.Visible in KeyboardService.VirtualKeyboardState) then begin KeyboardService.HideVirtualKeyboard; KeyboardService.ShowVirtualKeyboard(aEdit); end; end;

Официальный сайт: https://rarus.ru/1c-auto/alfa-avto-mobilnyy-priemshchik/ Автор: 1C-Pарус Ссылки на приложение: Google Play Подробное описание: 1С_Рарус.pdf

зачем такие бубны. просто не надо вызывать из 2 формы третью и все. возвращай первой форме вызов со второй, и потом в первой форме вызывай третью. тогда при закрытии третей формы перейдешь к первой.

1. Все контролы в ФМ являются контейнерами. 2. Итемы внутр листбокса являются контролами, а значит и контейнерами, следовательно вы можете делать там внутри что угодно хоть колонки, хоть кружочки, хоть что... 3. поменять местами итемы можно так: ListBox1.ItemsExchange( ListBox1.ItemByIndex(0), ListBox1.ItemByIndex(1) ); 4. Чтобы в Листбокс итеме поменять текст, нужно поменять его паблишед свойство Text, делается это так: ListBox1.ItemByIndex(1).Text := '123';

Например, у нас есть 3 формы MultipleForms.zip Главная (Form1) Форма ввода пароля (Form2) Третья форма (Form3) Form2 в момент открытия Form3 должна поставить себя в очередь на самоудаление (Release). Чтобы когда откроется Form3, Form2 была уже разрушена. В этом случае после закрытия Form3, вы вернетесь в Form1. Код открытия Form3 из Form2: procedure TForm2.Button2Click(Sender: TObject); begin Form3.Show; Release; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := TCloseAction.caFree; end;

Добрый день, Прикрепляю проект, где все загружается корректно (iOS Simulator). WebBrowserLoadLocalFile.zip Внимательно проверьте место назначения развертывания файла и факт того, что он задеплоился: Обязательно слэш в конце: "Startup\Documents\" Строка с файлом в Deployment Manager не должна быть серой! Загрузка идет таким способом: uses System.IOUtils; procedure TForm15.FormCreate(Sender: TObject); begin WebBrowser1.URL := 'file:/' + TPath.Combine(TPath.GetDocumentsPath, 'DemoPage.html'); end; P.S. Сделано все по руководству Включение своих файлов в приложение

Procedure ResizeMemo(AMemo: TMemo); const Offset = 4; begin AMemo.Height := AMemo.ContentBounds.Height + Offset; end;

этот ответ можно вынести на главную страничку и закрыть все темы форума разом )))