home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Source / Vcl / bdemts.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  855b  |  37 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1999 Inprise Corporation          }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit BdeMts;
  11.  
  12. {$H+,X+}
  13.  
  14. interface
  15.  
  16. implementation
  17.  
  18. uses Mtx, DbTables;
  19.  
  20. function GetObjectContext: IUnknown;
  21. var
  22.   ObjectContext: IObjectContext;
  23. begin
  24.   try
  25.     ObjectContext := Mtx.GetObjectContext;
  26.   except
  27.     ;
  28.   end;
  29.   if Assigned(ObjectContext) then Result := ObjectContext
  30.   else Result := nil;
  31. end;
  32.  
  33. begin
  34.   if not Assigned(GetObjectContextProc) then
  35.     GetObjectContextProc := GetObjectContext;
  36. end.
  37.