Image bewegen

[Jonski]

Okay ich habe das Problem, dass sich mein Brett bei Pong nicht bewegt, wenn ich die Pfeiltasten links und rechts drücke.

Es gibt keine Fehlermeldungen und nichts!

Ich habe keine Ahnung was los ist!

[haentschman]

Hallo...

ich verfolge das schon eine Weile. Langsam drängt sich mir der Verdacht auf, daß du in der Programmlogik entscheidende Fehler machst.
Laß einfach erst mal den Code beiseite. Nimm ein Blatt Papier (bei Milimeterpapier kannst du auch zählen)und zeichne dir auf was deine Images machen sollen. Schreibe die Werte z.B. für Left daneben. Schau dir an was passiert wenn du ein Image "bewegst" und wie sich die Werte der jeweiligen Images verändern. Schreib im Klartext was passiert. (z.B. wenn linke Seite Image = rechte Seite Image 2 dann). Diese "Gleichung" brauchst du dann nur in Code umsetzen. Erst wenn klar ist, was passiert gehst du an den Code, denn dann ist es ein Kinderspiel.

hoffe Tipps gegeben zu haben.

PS: wenn du dich nur in den Code verbeißt, verzettelst du dich.

[Jonski]

Ja das hab ich ja schon und bei meinem vorherigem Programm hat das ja auch funktioniert, aber dieses mal geht es nicht.

Ein Struktogramm hab ich auch schon gemacht!

[hugo1990]

Wieso soll das nicht gehen? Wenn du das so machst, wie es haentschman beschrieben hat, dann sollte dir das sehr viel weiter helfen. Selbst ich mache sowas manchmal, weil einem das viele Hirnverrenkungen erspart und man in den meisten Fällen schneller ans Ziel kommt. Und ein Strukogramm wird die in diesem Fall nicht wiklich weiter helfen.

[Luckie]

Fang noch mal ganz von vorne an und versuch mal umzusetzen, was dir hier in diesem Thread gesagt und erklärt wurde.

[Micha88]

Interessanter wäre ein sich bewegendes Bild, welches per Maus gesteuert wird.

[Wolfgang Mix]

Wenn ich der TE wäre, würde ich Michaels Rat befolgen
bzw. von allein neu anfangen, alles andere ist tote Zeit.

[Micha88]

Tipp noch dazu:

Klick ins Bild (Nicht loslassen)
=> Bild moveable

Beim loslassen der Maustaste
=> Bild an aktueller Stelle (GetCursorPos, müsste so heißen die Funktion, oder ?) festsetzen.

[Micha88]

Hier ein kleiner Anstoß dazu:

Delphi-Quellcode:

private {...}
canMove: Boolean;

{...}
procedure TForm1.FormCreate(Sender: TObject);
begin
 canMove := False;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 canMove := True;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 p: TPoint;
begin
 GetCursorPos(p);

 if canMove then
  begin
   Image1.Top := p.Y - (Image1.Height div 2);
   Image1.Left := p.X - (Image1.Width div 2);
  end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 canMove := False;
end;

[Luckie]

Prima, jetzt dürfte seine Verwirrung komplett sein.