Weiterlernen

[teodorfon]

Ist mir jetzt ein wenig peinlich wieder nach hilfe zu suchen,leider hab ich schon ein paar tage versucht das programm hinzubekommen,ohne erfolg...

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 IF timer1.enabled:=true then
begin

 IF key = VK_Down   THEN shape1.Top  := shape1.Top +5;
 IF key = VK_UP     THEN shape1.Top  := shape1.Top -5;
 IF key = VK_RIGHT  THEN shape1.Left := shape1.Left +5;
 IF key = VK_LEFT   THEN shape1.Left := shape1.Left -5;
end;
  end;
  procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if shape1.left < 150 then shape1.left := shape1.left + 30;

  if shape1.left >= 150
  then begin
    timer2.enabled := true;
    timer1.enabled := false;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if shape1.left > 0 then shape1.left := shape1.left - 30;

  if shape1.left <= 0
  then begin
    timer1.enabled := true;
    timer2.enabled := false;
  end;
end;


end.

Die idee ist es erstmal den Shape 2 auf gleiche höhe wie Shape1 zu setzen,wenn das erst mal möglich ist wollte ich eine collision detection einzubauen.Nur funktioniert die KeyDown procedure nicht.Hoffe dass solch eine frage nicht doppelt gestellt wurde,aber die anderen themen haben mir leider nicht geholfen...