home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / DEMO / Frdemo.dpr < prev    next >
Text File  |  2001-07-30  |  547b  |  23 lines
  1. program Frdemo;
  2.  
  3. uses
  4.   QForms,
  5.   Unit1 in 'Unit1.pas' {Form1},
  6.   datasets in 'datasets.pas' {CustomerData: TDataModule},
  7.   Unit2 in 'Unit2.pas' {Form2},
  8.   Unit3 in 'Unit3.pas' {Form3},
  9.   Unit4 in 'Unit4.pas' {Form4};
  10.  
  11. {$R *.res}
  12.  
  13. begin
  14.   Application.Initialize;
  15.   Application.CreateForm(TForm1, Form1);
  16.   Application.CreateForm(TCustomerData, CustomerData);
  17.   Application.CreateForm(TForm2, Form2);
  18.   Application.CreateForm(TForm3, Form3);
  19.   Application.CreateForm(TForm4, Form4);
  20.   Form4.ShowModal;
  21.   Application.Run;
  22. end.
  23.