-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathProject1.dpr
35 lines (29 loc) · 936 Bytes
/
Project1.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program Project1;
uses
System.StartUpCopy,
FMX.Forms,
SplashScreen in 'SplashScreen.pas' {FSplash},
PrimaFereastra in 'PrimaFereastra.pas' {Form2},
Bilant in 'Bilant.pas' {Form1},
Contact in 'Contact.pas' {Form6},
Report in 'Report.pas' {Form5},
ContactInformatii in 'ContactInformatii.pas' {Form7},
DataModule in 'DataModule.pas' {DataModule1: TDataModule};
{$R *.res}
begin
FSplash := TFSplash.Create(nil);
FSplash.Show;
while FSplash.Timer1.Enabled do Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TFSplash, FSplash);
Application.CreateForm(TForm7, Form7);
FSplash.Hide;
FSplash.Free;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(Tdm, dm);
//Application.CreateForm(TFInformatii, FInformatii);
Application.Run;
end.