Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2010, 11:54   #11
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Попробуй так.
Все нормально очищается после отработки.
Код:
  Application.Initialize;
  with TMain_splash.Create(Application) do Execute;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TMainDM, MainDM);
  Application.CreateForm(Tabout, about);
  Application.Run;
"Заряженному танку в дуло не смотрят" @Dekmer in WoT

Последний раз редактировалось Kotofff; 18.03.2010 в 12:11.
Kotofff вне форума Ответить с цитированием
Старый 18.03.2010, 12:39   #12
Art_Divin
Пользователь
 
Аватар для Art_Divin
 
Регистрация: 06.03.2010
Сообщений: 14
По умолчанию

Спасибо за наводку. Вот что вышло
Код:
program MainProject;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {Main},
  MainDataModule in 'MainDataModule.pas' {MainDM: TDataModule},
  MainThreadUnit in 'MainThreadUnit.pas',
  MainAbout in 'MainAbout.pas' {about},
  splash_screen in 'splash_screen.pas' {Main_splash};

{$R *.res}

begin
  Application.Initialize;
  Main_splash:=TMain_splash.Create(Application);
  with Main_splash do begin
    {методы}  
  end;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TMainDM, MainDM);
  Application.CreateForm(Tabout, about);
  Application.Run;
end.
House, progressive house, minimal house listener!
Linux registered user #505538
Art_Divin вне форума Ответить с цитированием
Старый 18.03.2010, 14:41   #13
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Перед строкой
Код:
Main_splash.free;
добавляем
Код:
Main_splash.Hide;
А после строки
Код:
Main_splash.Show;
полезно добавить
Код:
Main_splash.Update;
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обратный отсчет в прогрессбар Stanislav Общие вопросы Delphi 3 09.01.2008 16:49