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

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

Картинка перед запуском [D7, WinXP]

Sonic_gd ©   (2004-12-19 18:45:00) 

Уважаемые мастера! Подскажите пожалуйста как сделать так чтбы при запуске приложения сначала на некоторое время появлялась картинка, а потом уже форма.

---

~Last_^_Soul~   (2004-12-19 23:26:00) [1]

Посмотри компонент Image на Additional... 8-)

---

AlterEgo of WondeRu   (2004-12-19 19:34:00) [2]

помоги себе сам!) и посмотри путь: C:\Program Files\Borland\Delphi7\Demos\Db\MastApp

program Mastapp;

uses
 Forms,
 Main in 'MAIN.PAS' {MainForm},
 Brparts in 'BRPARTS.PAS' {BrPartsForm},
 QryCust in 'QryCust.pas' {QueryCustDlg},
 Edparts in 'EDPARTS.PAS' {EdPartsForm},
 BrCstOrd in 'BrCstOrd.pas' {BrCustOrdForm},
 Edcust in 'EDCUST.PAS' {EdCustForm},
 Edorders in 'EDORDERS.PAS' {EdOrderForm},
 SrchDlg in 'SrchDlg.pas' {SearchDlg},
 Splash in 'SPLASH.PAS' {SplashForm},
 Pickdate in 'PICKDATE.PAS' {BrDateForm},
 About in 'ABOUT.PAS' {AboutBox},
 Pickrep in 'PICKREP.PAS' {PickRpt},
 DataMod in 'DataMod.pas' {MastData: TDataModule},
 CustRpt in 'CustRpt.pas' {CustomerByInvoiceReport: TQuickRep},
 OrderRpt in 'OrderRpt.pas' {OrdersByDateReport: TQuickRep},
 InvcRpt in 'InvcRpt.pas' {InvoiceByOrderNoReport: TQuickRep},
 PickInvc in 'PickInvc.pas' {PickOrderNoDlg};

{$R *.RES}

begin
 Application.Initialize;
  SplashForm := TSplashForm.Create(Application);
 SplashForm.Show;
 SplashForm.Update;
 Application.Title := 'Marine Adventures Order Entry';
 Application.HelpFile := 'MASTAPP.HLP';
 Application.CreateForm(TMastData, MastData);
 Application.CreateForm(TMainForm, MainForm);
 Application.CreateForm(TBrPartsForm, BrPartsForm);
 Application.CreateForm(TQueryCustDlg, QueryCustDlg);
 Application.CreateForm(TEdPartsForm, EdPartsForm);
 Application.CreateForm(TBrCustOrdForm, BrCustOrdForm);
 Application.CreateForm(TEdCustForm, EdCustForm);
 Application.CreateForm(TEdOrderForm, EdOrderForm);
 Application.CreateForm(TSearchDlg, SearchDlg);
 Application.CreateForm(TBrDateForm, BrDateForm);
 Application.CreateForm(TAboutBox, AboutBox);
 Application.CreateForm(TPickRpt, PickRpt);
 Application.CreateForm(TCustomerByInvoiceReport, CustomerByInvoiceReport);
 Application.CreateForm(TOrdersByDateReport, OrdersByDateReport);
 Application.CreateForm(TInvoiceByOrderNoReport, InvoiceByOrderNoReport);
 Application.CreateForm(TPickOrderNoDlg, PickOrderNoDlg);
  SplashForm.Hide;
 SplashForm.Free;
 Application.Run;
end.

---

Думкин   (2004-12-19 19:29:00) [3]

> [1] Piter ©   (19.12.04 19:26)

Просто не все знают, что ключевое тут слово - Splash.

---

Piter   (2004-12-19 19:26:00) [4]

А в чем проблема? Блин, ну такие вопросы задавать...

Проблемы с выводом формы? Или не знаем что такое TTimer? Или ЧТО?

Или вообще вчера Delphi увидели и решили вывести "картинку перед запуском"?

---

Наверх