home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l038 / 1.img / DOCDEMOS.PAK / STEP01.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-14  |  1.0 KB  |  39 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Pascal for Windows                     }
  4. {   Demo program                                 }
  5. {   Copyright (c) 1991 by Borland International  }
  6. {                                                }
  7. {************************************************}
  8.  
  9. program MyProgram;
  10.  
  11. uses WObjects;
  12.  
  13. type
  14.   TMyApplication = object(TApplication)
  15.     procedure InitMainWindow; virtual;
  16.   end;
  17.  
  18. {--------------------------------------------------}
  19. { TMyApplication's method implementations:         }
  20. {--------------------------------------------------}
  21.  
  22. procedure TMyApplication.InitMainWindow;
  23. begin
  24.   MainWindow := New(PWindow, Init(nil, 'Sample ObjectWindows Program'));
  25. end;
  26.  
  27. {--------------------------------------------------}
  28. { Main program:                                    }
  29. {--------------------------------------------------}
  30.  
  31. var
  32.   MyApp: TMyApplication;
  33.  
  34. begin
  35.   MyApp.Init('MyProgram');
  36.   MyApp.Run;
  37.   MyApp.Done;
  38. end.
  39.