home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / menu < prev    next >
Encoding:
Text File  |  1989-02-27  |  434 b   |  21 lines
  1.  
  2.  
  3. Ein Menu wird wie folgt aufgerufen!
  4. -----------------------------------
  5.  
  6. MODULE MenuDemo;
  7.   BEGIN
  8.     IF ReadMenu('Demo.Men',1) THEN <-- Lesen des betreffenden Menüs.
  9.                  ^         ^ Menü-Nummer
  10.                  └─ Filename des Menüs
  11.  
  12.       WITH MenuData DO
  13.         Exit := Menu(x,y,FrameTitle,MenuText,escAllowed,Selection);
  14.  
  15.         Uebergabe der Menu-Daten.
  16.  
  17.       END;
  18.     END;
  19.   END MenuDemo.
  20.  
  21.