Перейти к содержанию
Fire Monkey от А до Я

Поиск сообщества

Показаны результаты для тегов 'Splash Form'.

  • Поиск по тегам

    Введите теги через запятую.
  • Поиск по автору

Тип контента


Форумы

  • Общие вопросы
    • Анимация
    • Графика
    • Стили
    • Базы данных и REST
    • Компоненты
    • Положение, размеры, выравнивание
    • Работа с текстом
    • Приложение и формы
    • Отладка
    • Развертывание приложений
    • Вопросы по языку Object Pascal и RTL
    • Общая информация о TControl
    • События
    • Прочие вопросы
  • Вопросы по платформам
    • Android
    • iOS
    • OSX
    • Windows
    • Windows Phone
    • Linux
  • Вопросы по использованию RAD Studio
    • Лицензирование
    • Сборка проектов
    • Multi-Device Designer
    • Редактор кода
    • Вопросы
  • Обучение
    • Основная информация
    • Вопросы
    • Отзывы
  • Поиск специалистов по FireMonkey
    • Консультации
    • Ищу подрядчика
  • Дополнительные ресурсы по FireMonkey
    • Сторонние компоненты
    • Приложения, написанные с использованием FireMonkey
    • Примеры
    • Руководства
    • Шаблоны
    • Статьи и заметки
    • Информация о версиях RAD Studio
    • Новости
  • Организация работы данного форума

Поиск результатов в...

Поиск контента, содержащего...


Дата создания

  • Начало

    Конец


Дата обновления

  • Начало

    Конец


Фильтр по количеству...

Регистрация

  • Начало

    Конец


Группа


AIM


MSN


Сайт


ICQ


Yahoo


Jabber


Skype


StackOverflow


Защита от ботов


Город


Интересы

Найдено: 1 результат

  1. skaplich

    Splash Form не отображается

    Всем привет. в VCL таких проблем не имел. Delphi XE8 файл проекта Application.Initialize; frmSplash := TfrmSplash.Create(Application); frmSplash.LabelMessage1.Text:='Загрузка программы'; frmSplash.LabelMessage2.Text:=''; frmSplash.Show; if frmSplash.Visible then begin //MessageDlg('видимая', System.UITypes.TMsgDlgType.mtInformation, [system.UITypes.TMsgDlgBtn.mbOk], 0); end; Sleep(1000); Application.CreateForm(TfrmDM, frmDM); Application.CreateForm(TfrmMain, frmMain); frmSplash.Hide; Application.Run; форма frmSplash невидима при закрузке, если комментарий стять со строки MessageDlg, то становиться видимой вот такие чудеса далее при создании главной формы будет код, если меняю текст в splash форме, то ничего не происходит procedure TfrmMain.FormCreate(Sender: TObject); if not FileExists(GetCurrentDir + '\base.db') then begin Application.ProcessMessages; frmSplash.LabelMessage1.Text := 'Создание базы данных'; frmSplash.LabelMessage2.Text := 'Создание таблиц'; // на экране ничего не меняет Sleep(3000); // чтобы увидеть end; Не меняет текст Application.ProcessMessages; frmSplash.LabelMessage2.Repaint; не помогает Если начинаю работать Application.CreateForm(TfrmDM, frmDM); Application.CreateForm(TfrmMain, frmMain);Application.CreateForm(TfrmDM, frmDM); frmDm.FDConnection1.Params.Add('Database=' + GetCurrentDir + '\base.db'); frmDm.FDConnection1.Params.Add('DriverID=SQLite'); // тип БД в файле проекта - валиться вообще AppCrash а в TfrmMain.FormCreate - работает код Нужна реально работающая Splash форма с возможностью изменения текста Label и чтобы это отображалось на экране. Splash форма не убивается, а Hide, в дальнейшем можно использовать ее отображение ,когда программа работает какое-то время Жду ответов.
×
×
  • Создать...