Advertisement
anticlown

создание формы до создания главной формы

Apr 21st, 2023
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.14 KB | None | 0 0
  1. Program EnjoyChess;
  2.  
  3. Uses
  4.     Vcl.Forms,
  5.     EnjoyChessVCLWelcomeWindow In 'EnjoyChessVCLWelcomeWindow.pas' {frmWelcomeWindow} ,
  6.     EnjoyChessDataImages In 'EnjoyChessDataImages.pas' {dtmdData: TDataModule} ,
  7.     EnjoyChessVCLAnalysis In 'EnjoyChessVCLAnalysis.pas' {frmAnalysis} ,
  8.     EnjoyChessVCLGameForm In 'EnjoyChessVCLGameForm.pas' {frmGameForm} ,
  9.     EnjoyChessVCLSettings In 'EnjoyChessVCLSettings.pas' {frmSettings} ,
  10.     Vcl.Themes,
  11.     Vcl.Styles,
  12.     EnjoyChessBackEngine In 'EnjoyChessBackEngine.pas',
  13.     EnjoyChessLoadingScreen In 'EnjoyChessLoadingScreen.pas' {frmLoadingScreen};
  14.  
  15. {$R *.res}
  16.  
  17. Begin
  18.     Application.Initialize;
  19.  
  20.     FrmLoadingScreen := TfrmLoadingScreen.Create(Application);
  21.     FrmLoadingScreen.Show;
  22.     While FrmLoadingScreen.TmrEndLoadingScreen.Enabled Do
  23.         Application.ProcessMessages;
  24.     FrmLoadingScreen.Hide;
  25.  
  26.     Application.MainFormOnTaskbar := False;
  27.     Application.CreateForm(TFrmWelcomeWindow, FrmWelcomeWindow);
  28.     Application.CreateForm(TDtmdData, DtmdDataImages);
  29.     FrmLoadingScreen.Free;
  30.     Application.CreateForm(TDtmdData, DtmdDataImages);
  31.     Application.Run;
  32.  
  33. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement