home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 11.ddi / OWLDEMOS.ZIP / MDIAPP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-27  |  922 b   |  38 lines
  1. {************************************************}
  2. {                                                }
  3. {   Demo program                                 }
  4. {   Copyright (c) 1991 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program MDI;
  9.  
  10. {$R MDIAPP.RES}
  11.                        
  12. uses WinTypes, WinProcs, OWindows;
  13.          
  14. type
  15.  
  16.   { Define a TApplication descendant } 
  17.   TMDIApp = object(TApplication)
  18.     procedure InitMainWindow; virtual;
  19.   end;
  20.  
  21. { Construct the THelloApp's MainWindow object, loading its menu }
  22. procedure TMDIApp.InitMainWindow;
  23. begin
  24.   MainWindow := New(PMDIWindow, Init('MDI Conformist',
  25.     LoadMenu(HInstance, 'MDIMenu')));
  26. end;
  27.  
  28. { Declare a variable of type TMDIApp} 
  29. var
  30.   MDIApp: TMDIApp;
  31.  
  32. { Run the MDIApp }
  33. begin
  34.   MDIApp.Init('MDIApp');
  35.   MDIApp.Run;
  36.   MDIApp.Done;
  37. end.
  38.