Отображение заставки несколько секунд

В моем приложении у меня есть изображение всплеска во время соединения с базой данных и другой инициализацией. Он отлично работает, чтобы показать изображение всплеска, но там пустое время. So,Отображение заставки несколько секунд

Изображение брызг загружается и отображается на долю секунды.
Всплескное изображение получилось пустым 2-3 секунды.
Всплеск изображения снова отображается несколько секунд.
Всплеск закрыт.

Есть ли умная вещь, чтобы просто показать изображение как можно быстрее и удалить пустое изображение?

код в DPR-файле:

Application.Initialize; 

SplashForm := TSplashForm.Create(Application); 
SplashForm.Show; 
// Tried Splash.Update here but no difference. 

SplashForm.SetPos(15); 
// Init code 
SplashForm.SetPos(30); 

// More Init code 
SplashForm.SetPos(100); 

SplashForm.Close; 

Application.Run;

И блок разбрызгивания:

procedure TSplashForm.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action := caFree; 
end; 

procedure TSplashForm.FormCreate(Sender: TObject); 
begin 
    pbLoading.Properties.Text := 'Loading ' + TClientConfig.Instance.AppTitle + '...'; 
end; 

procedure TSplashForm.SetPos(aPos: Integer); 
begin 
    pbLoading.Position := aPos; 
    UpDate; 
end;

С уважением Roland

источник

2011-02-01 Roland Bengtsson

Ваш SplashForm должен получить сообщение WM_PAINT, чтобы показать и это не произойдет, если только сообщение-насос не работает.

Положить Application.ProcessMessages после SplashForm.Show.

источник

2011-02-01 07:45:49

Фактическое обновление() будет делать то же самое синхронно. цикл сообщений уже существует в этой точке, но поток VCL не имеет возможности рисовать уже недействительное окно. –

Спасибо. Звучит правильно, но это не имеет никакого значения. Кажется, что что-то занимает много времени и очищает splashimage. –

ProcessMessages() не ждет. HandleMessage() делает –

Возможно, это не так очевидно, но ваш код, как представляется, показывает заставку, а затем сразу же закрывает его. Что произойдет, если вы закомментируете строку, которая говорит SplashForm.Close?

источник

2011-02-01 08:31:35

Я немного упростил код. Существует вызов DatamoduleCreate за кодом init. Это загружает модель и занимает некоторое время. Я хочу закрыть всплеск, когда это будет завершено. –

@Roland Бит кода, который вы вытащили, был решающим моментом, который позволил бы нам решить проблему! –

Думаю, я понимаю это сейчас. Мое приложение использует Жирный шрифт, и для загрузки модели требуется несколько секунд. В это время брызги пустые. Мне удалось немного уменьшить это время, но я не хочу загромождать внутренности Bolds SetFromModel с Application.ProcessMessages.

Я думаю, что это нормально. Но спасибо за ваши комментарии. он указывает мне в правильном направлении.

/Roland

источник

2011-02-01 08:53:31

Отображение заставки несколько секунд

ответ

Смежные вопросы