so sieht die bewegung eines normalen rechtsecks aus. nun soll das rechteck aber nicht mehr weiter bewegt werden können wenn ich den rand von meinem programm oder einer anderen begrenzung erreicht habe! (soll für pong sein
)
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
38 : begin
shape2.Top := shape2.Top - 4;
end;
40 : begin
shape2.Top := shape2.Top + 4;
end;
87 : begin
shape1.Top := shape1.Top - 4;
end;
83 : begin
shape1.Top := shape1.Top + 4;
end;
end;
if shape1.Top = button1.top then //was muss ich hier hinschreiben??
end;
MfG PiQ