Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.039 c
