Code: Alles auswählen
repeat
while SDL_PollEvent(@event) = 0 do begin
case event.type_ of
SDL_MOUSEBUTTONDOWN: begin
WriteLn('down');
end;
end;
end;
until quit;
Dann habe ich versucht den Event-Typ auf 0 zu setzen. Und dies scheint auch zu funktionieren.
Code: Alles auswählen
repeat
while SDL_PollEvent(@event) = 0 do begin
case event.type_ of
SDL_MOUSEBUTTONDOWN: begin
WriteLn('down');
end;
SDL_QUITEV: begin
quit := True;
end;
end;
event.type_ := 0; // Event auf "0"
end;
until quit;
Hat jemand eine Idee, das sich SDL_PoolEvent so merkwürdig verhaltet ?