Version vom 19. August 2005, 19:31 Uhr

SDL_PollEvent

Name

SDL_PollEvent - Ruft ein aktuell anstehenden Ereignis ab

Delphi-Spezifikation

function 'SDL_PollEvent(event : ^SDL_Event) :Integer;

Parameter

Beschreibung

Ruft ein aktuell anstehenden Ereignis ab

Wenn event nicht nil ist, wird das nächste Ereignis von der Warteschlange entfernt, und in der angebenen SDL_Event Struktur gespeichert.

Rückgabewert

Gibt 1 zurück wenn es noch weite Ereignisse in der Warteschalnge sind, oder 0 falls keine weritern verfügbar sind.

Beispiel

(aus dem ersten SDL Tutorial)

var 
  event:SDL_Event; (* Event structure *)

{...}

(* Check for events *)
  while ( SDL_PollEvent( @event ) = 1 ) do
    begin
      case event.type_ of

        // Beenden der Applikation
        SDL_QUITEV :
        begin
          Done := -1;
        end;

        // Taste wurde gedrückt
        SDL_KEYDOWN :
        begin
          glHandleKeyPress( @event.key.keysym );
        
        // Fenster-Größe hat sich verändert
        SDL_VIDEORESIZE :
        begin
          surface := SDL_SetVideoMode( event.resize.w, event.resize.h, SCREEN_BPP, videoflags );

          if ( surface = nil ) then
          begin
            Log.LogError('Surface bei Größenänderung verloren: '+SDL_GetError,'EVENT_RESIZE' );
            Quit_App;
          end;

          glResizeWindow( event.resize.w, event.resize.h );
        end;

Siehe auch

SDL_Event, SDL_WaitEvent, SDL_PeepEvents