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...