home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / chip / tvgenpas / demo3pas.exe / SDF / DLGHAND.SDF < prev    next >
Text File  |  1995-01-09  |  296b  |  16 lines
  1. procedure %TYPE%.HandleEvent;
  2. begin
  3. {$IFDEF VER70}
  4.   inherited HandleEvent(Event);
  5. {$ELSE}
  6.   TDialog.HandleEvent(Event);
  7. {$ENDIF}
  8.   if Event.What and evMessage <> 0 then
  9.      begin
  10.        case Event.Command of
  11.  
  12.        else Exit;
  13.        end;
  14.        ClearEvent(Event);
  15.      end;
  16. end;