- procedure glHandleEvents;
- var event : TSDL_Event;
- begin;
- // Verarbeiten der Events
- while ( SDL_PollEvent( @event ) = 1 ) do
- begin
- case event.type_ of
- .....
- // Taste wurde gedrückt
- SDL_KEYDOWN :
- begin
- Keys[event.key.keysym.sym] := True;
- end;
- SDL_KEYUP :
- begin
- Keys[event.key.keysym.sym] := False;
- end;
- ......
- end;
- TastenAuswirkungen;
- end;
- end;