Картинка перед запуском

← →
Sonic_gd (2004-12-19 18:45) [0]

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

← →
Piter © (2004-12-19 19:26) [1]

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

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

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

← →
Думкин © (2004-12-19 19:29) [2]

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

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

← →
AlterEgo of WondeRu © (2004-12-19 19:34) [3]

помоги себе сам!) и посмотри путь: 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.

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

Картинка перед запуском Найти похожие ветки