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

IS1

Пользователи
  • Постов

    9
  • Зарегистрирован

  • Посещение

Активность репутации

  1. Like
    IS1 получил реакцию от Ingalime в Custom Font как сделать?   
  2. Like
    IS1 получил реакцию от Евгений Корепов в Как выгрузить приложение   
    Это особенность операционной системы,  обновление ничего не даст.
  3. Like
    IS1 получил реакцию от Ingalime в Не работает onClose (Android)   
    некакое
  4. Like
    IS1 отреагировална krapotkin в Переезд на 10.3 Rio   
    сколько бед принесла уже стрельба в ногу под названием ProcessMessages
    как хорошо, что в Андроиде наконец всех отучат от этого крайне вредного трюка
    давайте формально 
    все что там у вас "высоконагруженное" выносите в потоки и пусть они работают. Ваши "потоки" пасутся в главном (Synchronize) и никакого толка нет
    концепцию надо поменять. запустили поток и занимайтесь своим делом. например покажите Splash
    а вернется поток - вот по возвращению и сделаете то, что этот Splash закроет.
    и уж точно потоки не должны ничего общего иметь с формами
    я писал статью про потоки, там про сплеши тоже есть в блоге и про ProcessMessages отдельная боль...
    http://www.cyberforum.ru/blogs/469693/blog4875.html
     
  5. Like
    IS1 получил реакцию от Ingalime в Переезд на 10.3 Rio   
    Application.ProcessMessages; Application.CreateForm(TForm1, Form1); Label2.text:='Form1 Created'; Application.ProcessMessages; Application.CreateForm(TForm2, Form2); Label2.text:='Form2 Created'; Application.ProcessMessages; Application.MainForm:=Form1; Form1.Show; SplashForm.Hide; SplashForm.Release; Можно заменить на 
    tthread.CreateAnonymousThread(procedure begin sleep(1000); tthread.Synchronize(tthread.CurrentThread, procedure begin Application.CreateForm(TForm1, Form1); end); while not assigned(form1) do sleep(0); tthread.Synchronize(tthread.CurrentThread, procedure begin Label2.text:='Form1 Created'; end); sleep(200); tthread.Synchronize(tthread.CurrentThread, procedure begin Application.CreateForm(TForm2, Form2); end); while not assigned(form2) do sleep(0); tthread.Synchronize(tthread.CurrentThread, procedure begin Label2.text:='Form2 Created'; Application.MainForm:=Form1; Form1.Show; SplashForm.Hide; SplashForm.DisposeOf; end); end).Start; но как было сказано выше, использование Sleep не лучший вариант.
  6. Like
    IS1 получил реакцию от Ingalime в Как выгрузить приложение   
    скорее всего вы указали свои изображения только для одного режима (Debug/Release) а компилируйте в другом. 
  7. Like
    IS1 получил реакцию от Yarpda в Переезд на 10.3 Rio   
    tthread.CreateAnonymousThread(procedure     begin      //Асинхронная логика      sleep(xxx);      tthread.Synchronize(nil, procedure begin        (*Oбращения к методам и свойствам визуальных компонентов*)      end);     end).Start;  
×
×
  • Создать...