home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / TASKVCLD.PAK / ADOPT.CPP next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  664 b   |  25 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows
  3. // Copyright (c) 1996 by Borland International, All Rights Reserved
  4. //
  5. // ADOPT.CPP
  6. //
  7. // Implements the function for adopting the VCL's hidden main window
  8. // as a child of an OWL window.
  9. //----------------------------------------------------------------------------
  10. #define STRICT                  // required for OWL/VCL compatibility
  11. #include <vcl\vcl.h>
  12. #pragma hdrstop
  13. #include "adopt.h"
  14.  
  15. //
  16. // Associate VCL form with an OWL parent.
  17. //
  18. void AdoptVCLAppWindow(HWND newParent)
  19. {
  20.   SetParent(Application->Handle, newParent);
  21.   return;
  22. }
  23.  
  24.   
  25.