home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Snippets / vListMngr 1.0 / Sources ƒ / About_Dialog next >
Encoding:
Text File  |  1996-04-10  |  476 b   |  23 lines  |  [TEXT/PJMM]
  1. unit About_Dialog;
  2.  
  3. interface
  4.     procedure AboutDialog;
  5.  
  6. implementation
  7.     procedure AboutDialog;
  8.         var
  9.             itemHit: Integer;
  10.             tDialog: DialogPtr;
  11.     begin
  12. {Let the OS handle the Alert and wait for a result to be returned}
  13.         tDialog := GetNewDialog(7, nil, WindowPtr(-1));
  14.         if tDialog <> nil then
  15.             begin
  16.                 ShowWindow(tDialog);
  17.                 SelectWindow(tDialog);
  18.                 ModalDialog(nil, itemHit);
  19.                 DisposDialog(tDialog);
  20.             end;
  21.     end;        {procedure AboutDialog}
  22.  
  23. end.        {unit AboutDialog}