1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

var schlaeger_links_top,schlaeger_rechts_top : integer;
var ball_top,ball_left,ball_x,ball_y : integer;
var limit_oben,limit_unten,limit_links,limit_rechts : integer;
var geschwindigkeit : integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
// Grenzen der Bewegungen festlegen
 geschwindigkeit := 1;
 schlaeger_links_top := 242;
 schlaeger_rechts_top := 242;
 ball_top := 237;
 ball_left := 312;
 ball_x := geschwindigkeit;
 ball_y := geschwindigkeit;
 limit_links := 25;
 limit_rechts := 600;
 limit_oben := 64;
 limit_unten := 460;

// Startzustand
 Image2.Top := schlaeger_links_top;
 Image2.Left := 15;
 Image3.Top := schlaeger_rechts_top;
 Image3.Left := 610;
 Image4.Top := ball_top;
 Image4.Left := ball_left;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var differenz : integer;
begin

 //===== Ball bewegen =====

 ball_top := ball_top + ball_y;
 if((ball_top > limit_unten) or (ball_top < limit_oben))then begin
  ball_y := - ball_Y; end;

 ball_left := ball_left + ball_x;
 if ((ball_left > limit_rechts) or (ball_left < limit_links)) then begin
    ball_x := - ball_x; end;
 image4.Visible := false;
 Image4.Top := ball_top;
 Image4.Left := ball_left;
 image4.Visible := true;

 //===== Linken Schläger bewegen =====

 if(ball_x < 0)then begin
    differenz := schlaeger_links_top - ball_top;

    if(differenz < 0) then begin
       schlaeger_links_top := schlaeger_links_top + geschwindigkeit; end
    else begin
       schlaeger_links_top := schlaeger_links_top - geschwindigkeit;end;
    if (schlaeger_links_top < 75) then schlaeger_links_top := 75;
    if (schlaeger_links_top > 430) then schlaeger_links_top := 430;
    Image2.Top := schlaeger_links_top - 15;
 end;

 //===== Rechten Schläger bewegen =====

 if(ball_x > 0)then begin
    differenz := schlaeger_rechts_top - ball_top;

    if(differenz < 0) then begin
       schlaeger_rechts_top := schlaeger_rechts_top + geschwindigkeit end
    else begin
       schlaeger_rechts_top := schlaeger_rechts_top - geschwindigkeit;end;
    if (schlaeger_rechts_top < 75) then schlaeger_rechts_top := 75;
    if (schlaeger_rechts_top > 430) then schlaeger_rechts_top := 430;
    Image3.Top := schlaeger_rechts_top - 15;
 end;

end;

end.                    

1:
2:
3:
4:
5:
6:

begin
  [...] 
  DoubleBuffered := true;
  Application.OnMessage := appmessage;
  [...]
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if msg.message = wm_keydown then
  begin

    if msg.wParam=VK_DOWN then
     begin
       key1:='down';
       timer2.Enabled:=true;
       Handled:=true;
     end;
     if msg.wParam=VK_UP then
     begin
       key1:='up';
       timer2.Enabled:=true;
       Handled:=true;
     end;
  end;
  if msg.message = wm_keyup then
  begin
    if msg.wParam=VK_DOWN then
    begin
      timer2.Enabled:=false;
      Handled:=true;
    end;
    if msg.wParam=VK_UP then
    begin
      timer2.Enabled:=false;
      Handled:=true;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if key1='down' then
   begin
     Spieler_top := Spieler_top + geschwindigkeit;
     if (Spieler_top < 55) then Spieler_top := 55;
     if (Spieler_top > 967) then Spieler_top := 967;
     Spieler.Top := Spieler_top;
   end;
   if key1='up' then
    begin
     Spieler_top := Spieler_top + geschwindigkeit;
     if (Spieler_top < 55) then Spieler_top := 55;
     if (Spieler_top > 967) then Spieler_top := 967;
     Spieler.Top := Spieler_top;
   end;
end;                    

1:
2:

if GetAsyncKeystate(VK_UP) < 0 then
  // Taste [^] wurde gedrückt