nachti, ich verstehe leider nicht was du mir sagen willst.
@Rest
ich habe schon eine case Struktur für die Richtung siehe hier
[
DP]case Richtungstern of
1: Begin
img_Stern.Top := img_Stern.Top + 1;
img_Stern.Left := img_Stern.Left + 1;
end;
2: Begin
img_Stern.Top := img_Stern.Top - 1;
img_Stern.Left := img_Stern.Left + 1;
end;
3: Begin
img_Stern.Top := img_Stern.Top - 1;
img_Stern.Left := img_Stern.Left - 1;
end;
4: Begin
img_Stern.Top := img_Stern.Top + 1;
img_Stern.Left := img_Stern.Left - 1;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Richtung :=1;
Richtungstern :=1;
end;
end.[/
DP]
ich grübel immer noch darüber was daran nicht stimmt :/