home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / INFO / DI9802TS.ZIP / samples.pas < prev    next >
Pascal/Delphi Source File  |  1997-07-30  |  210b  |  9 lines
  1.   { Code Sample 1 - Easy Fire Event }
  2.   ActiveScript.GetScriptDispatch(nil, ADispatch);
  3.   if ADispatch <> nil then
  4.   begin
  5.     AVariant := ADispatch;
  6.     AVariant.Main;  { Fire the Main Event }
  7.   end;
  8.  
  9.