- procedure TForm2.IdleHandler(Sender: TObject; var Done: Boolean);
- begin
- QueryPerformanceCounter(Start);//für tbm
- Render;
- QueryPerformanceCounter(Ende);//für tbm
- //bei Randberührung
- //links:
- if ((xm-r)<=0)and(vx<0) then
- abprallen;
- //rechts:
- if (xm+r>=ClientWidth)and(vx>0) then
- abprallen;
- //oben:
- if ym+r>=ClientHeight then
- begin
- vorz_wechsel_vy;
- inc(won);
- score_neu_ausgeben;
- if won=2 then
- begin
- //hier irgentwie abbrechen und wenn z.B "ESC" gedrücktwird dann weiter spielen od. ggf. abbrechen
- messagedlg('Sie haben gewonnen!',mtInformation,[mbOk],0);
- end;
- end;
- //unten:
- if ym-r<=0 then
- begin
- vorz_wechsel_vy;
- inc(lost);
- score_neu_ausgeben;
- if lost=2 then
- begin
- //hier irgentwie abbrechen und wenn z.B "ESC" gedrücktwird dann weiter spielen od. ggf. abbrechen
- messagedlg('Sie haben verloren!',mtInformation,[mbOk],0);
- end;
- end;
- xm:=xm+vx;
- ym:=ym+vy;
- Done:=false;
- end;