Поэтому у меня странная ситуация ... так что она отображается только после выполнения всего процесса ... то есть, на экране уходит мало времени, и если я использую Thread, он теряет свойство «Нет TitleBar» ...
procedure TfrmSplash.FormActivate(Sender: TObject);
begin
Вопрос
Alisson R Oliveira
Форма Splash с потоком, без потери заголовка?
Добрый день, извините, если я публикую неправильный тропик, но я не думаю, что это большое дело для моих сомнений.
Я изменяю способ отображения всплеска моего приложения, теперь у меня есть форма всплеска («frmSplash»), которая выполняет всю загрузку.
procedure TfrmSplash.FormActivate(Sender: TObject);
begin
Application.CreateForm(TdmRestClient, dmRestClient);
Application.CreateForm(TdmDadosLocais, dmDadosLocais);
Application.CreateForm(TdmListaImagens, dmListaImagens);
Application.CreateForm(TdmControllerPromocoes, dmControllerPromocoes);
Application.CreateForm(TdmControllerOfertas, dmControllerOfertas);
Application.CreateForm(TdmControllerEmpresas, dmControllerEmpresas);
Application.CreateForm(TdmControllerUsuario, dmControllerUsuario);
Application.CreateForm(TfrmPrincipal, frmPrincipal);
frmPrincipal.Show;
Application.MainForm := frmPrincipal;
frmPrincipal.FullScreen := True;
Close;
end;
Поэтому у меня странная ситуация ... так что она отображается только после выполнения всего процесса ... то есть, на экране уходит мало времени, и если я использую Thread, он теряет свойство «Нет TitleBar» ...
procedure TfrmSplash.FormActivate(Sender: TObject);
begin
TTask.Run(
procedure() begin
TThread.Synchronize(nil,
procedure
begin
Application.CreateForm(TdmRestClient, dmRestClient);
Application.CreateForm(TdmDadosLocais, dmDadosLocais);
Application.CreateForm(TdmListaImagens, dmListaImagens);
Application.CreateForm(TdmControllerPromocoes, dmControllerPromocoes);
Application.CreateForm(TdmControllerOfertas, dmControllerOfertas);
Application.CreateForm(TdmControllerEmpresas, dmControllerEmpresas);
Application.CreateForm(TdmControllerUsuario, dmControllerUsuario);
Application.CreateForm(TfrmPrincipal, frmPrincipal);
frmPrincipal.Show;
Application.MainForm := frmPrincipal;
frmPrincipal.FullScreen := True;
Close;
end);
end);
конец;
Кто-нибудь знает, как использовать Thread, не теряя тему «No TitleBar».
благодарный
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.