home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tvision / workapp / test.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-05-03  |  1.2 KB  |  49 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      TEST.PAS                          *)
  3. (*             (c) 1993 te-wi Verlag, München             *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Test;
  6.  
  7. {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
  8. {$M 16384,0,655360}
  9.  
  10. USES Objects, Drivers, Memory, Views, Menus, Editors, TestBed, App,
  11.      MsgBox;
  12.  
  13. TYPE
  14.   tTestApp = OBJECT (tBedApp)
  15.     PROCEDURE   HandleEvent(VAR Event : tEvent); VIRTUAL;
  16.   END;
  17.  
  18.   PROCEDURE tTestApp.HandleEvent(VAR Event : tEvent);
  19.   BEGIN
  20.     inherited HandleEvent(Event);
  21.  
  22.     IF Event.What = evCommand THEN BEGIN
  23.       CASE Event.Command OF
  24.  
  25.         cmEins : MessageBox('Dies ist Fenster 1', NIL,
  26.                             mfInformation + mfOkButton);
  27.  
  28.         cmZwei : DebugBox(cmZwei);
  29.         cmDrei : DebugBox(cmDrei);
  30.       ELSE
  31.         Exit;
  32.       END;
  33.       ClearEvent(Event);
  34.     END;
  35.   END;
  36.  
  37. VAR
  38.   TestApp : tTestApp;
  39.  
  40. BEGIN
  41.   TestApp.Init;
  42.   TestApp.Run;
  43.   TestApp.Done;
  44. END.
  45. (* ------------------------------------------------------ *)
  46. (*                  Ende von TEST.PAS                     *)
  47.  
  48.  
  49.