swCHIP 1991 January/swCHIP_95-1.bin/chip/tvgenpas/demo3pas.exe/SDF/APPHAND.SDF

Text File | 1995-01-09 | 623b | 27 lines

procedure %_APPTYPE%.HandleEvent;
begin
{$IFDEF VER70}
  inherited HandleEvent(Event);
{$ELSE}
  TApplication.HandleEvent(Event);
{$ENDIF}
  if Event.What and evMessage <> 0 then
    begin
      case Event.Command of
@ASSIGN __SECTION 'CALLING'
@FORCALLEDITEMS
  @IFEQUAL %_APPITEMTYPE% 'DLG'
          %_PADR(_APPITEMCOMMAND,25,' ')% : Call%_DLGFUNC(_DLGNUM)%;
  @ENDIF
  @IFEQUAL %_APPITEMTYPE% 'MTD'
    @NOCR           %_PADR(_APPITEMCOMMAND,25,' ')% :
    @SNIPPET %_APPITEMFILE%
  @ENDIF
@ENDFOR
@ASSIGN __SECTION 'MAIN'
      else Exit;
      end;
      ClearEvent(Event);
    end;
end;