home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PHELLO / HELLOOWL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-25  |  924b  |  36 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Pascal for Windows                     }
  4. {   ObjectWindows Hello Windows application      }
  5. {   Copyright (c) 1991 by Borland International  }
  6. {                                                }
  7. {************************************************}
  8.  
  9. program HelloOWL;
  10.          
  11. uses WObjects, WinTypes, WinProcs;
  12.          
  13. type
  14.  
  15.   { Define a TApplication descendant } 
  16.   THelloApp = object(TApplication)
  17.     procedure InitMainWindow; virtual;
  18.   end;
  19.  
  20. { Construct the THelloApp's MainWindow object } 
  21. procedure THelloApp.InitMainWindow;
  22. begin
  23.   MainWindow := New(PWindow, Init(nil, 'Hello, ObjectWindows'));
  24. end;
  25.  
  26. { Declare a variable of type THelloApp } 
  27. var
  28.   HelloApp: THelloApp;
  29.  
  30. { Run the HelloApp }
  31. begin
  32.   HelloApp.Init('HelloApp');
  33.   HelloApp.Run;
  34.   HelloApp.Done;
  35. end.  
  36.