Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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.

---

← →
~Last_^_Soul~ ©   (2004-12-19 23:26) [4]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 1.622 c