| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь [D7, WinXP]

dimon1 ©   (2006-09-06 06:19:00) 

Подскажите, как показать изображение до появления главной формы приложение?

---

PSPF2003   (2006-09-06 09:29:00) [1]

Помощь с мягким знаком пишется…

---

dimon1   (2006-09-06 09:19:00) [2]

Спосибо за помощ!

---

PZ   (2006-09-06 09:13:00) [3]

Сделать главную форму и форму заставки Splash с картинкой на Image.
Вот пример моей программы:

program Dal;

uses
 Forms,
 DalUn in 'DalUn.pas' {DalFrm},
 .......
 Splash in 'SPLASH.PAS' {SplashForm};

{$R *.RES}

begin
 SplashForm := TSplashForm.Create(Application);
 SplashForm.Show;       // Показываем заставку
 SplashForm.Update;
 Application.CreateForm(TDalFrm, DalFrm);  // Загрузка главной формы
 SplashForm.Close;      // После загрузки гл. формы заставку закрываем
 Application.ShowHint := True;
 Application.Run;
end.

---

PSPF2003   (2006-09-06 09:12:00) [4]

Заставка для программы (24.03.00)
Сведения о программе, авторские права и т.д., лучше оформить в виде отдельной формы и показывать ее при запуске программы (как это сделано в Word).
Сделать это не сложно:
1. Создаете форму (например SplashForm).
2. Объявляете ее свободной (availableForms).
3. В Progect Source вставляете следующее (например):
   program Splashin;
   uses
       Forms,
       Main in 'MAIN.PAS',
       Splash in 'SPLASH.PAS'
   {$R *.RES}
   begin
       try
       SplashForm := TSplashForm.Create(Application);
       SplashForm.Show;
       SplashForm.Update;
       Application.CreateForm(TMainForm, MainForm);
       SplashForm.Hide;
       finally
       SplashForm.Free;
       end;
       Application.Run;
   end.
И форма SplashForm держится на экране пока выполняется Create в главной форме. Но иногда она появляется и пропадает очень быстро, поэтому нужно сделать задержку:
1. Добавляете на форму таймер с событием:
   procedure TSplashForm.Timer1Timer(Sender: TObject);
   begin
     Timer1.Enabled := False;
   end;
2. Событие onCloseQuery для формы:
   procedure TSplashForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   begin
     CanClose := Not Timer1.Enabled;
   end;
3. И перед SplashForm.Hide; ставите цикл:
   repeat
     Application.ProcessMessages;
   until SplashForm.CloseQuery;
4. Все! Осталось установить на таймере период задержки 3-4 секунды.
5. На последок, у такой формы желательно убрать Caption:
SetWindowLong (Main.Handle,GWL_STYLE, GetWindowLong(Main.Handle, GWL_STYLE) AND NOT WS_CAPTION OR WS_SIZEBOX);

---

dimon1   (2006-09-06 08:52:00) [5]

Пробовал! Но, во первых не получаилось показать дочернюю форму до появления главной, пришлось прятать ее с помощью ShowWindow, а затем снова показывать, а во вторых изображение на форме появляется с небольшой задержкой. Может есть другие варианты?

---

Loginov Dmitry   (2006-09-06 08:05:00) [6]

> Подскажите, как показать изображение до появления главной
> формы приложение?


Покажи его на другой форме, которую открывай до появления главной формы приложения.

---

Elen   (2006-09-06 08:04:00) [7]

> dimon1

Создать вспомогательную форму раньше главной, на которой будет изображение. Показать ее до создания главной формы и удалить после

---

Наверх