Shape bewegen...

[KermitFrosch]

also, ich möchte ein shape um drei pixel nach links bewegen.
ich mache das so:

Delphi-Quellcode:

var
Shape:Integer;
begin
Shape.left:=+3;
end;

Aber wie geht das jez nach recht?

ein Shape.right gibt es da nicht

???

[KermitFrosch]

ok, ich habe es herrausgefunden:

nach rechts

Delphi-Quellcode:

procedure TForm1.btnrechtsClick(Sender: TObject);
var
shap1:Integer;
begin
Shape1.left:=Shape1.left+3;
end;

nach links

Delphi-Quellcode:

procedure TForm1.btnlinksClick(Sender: TObject);
var
shap1:Integer;
begin
Shape1.left:=Shape1.left-3;
end;

weiß jemand, wie ich das auf die Pfeiltasten der tastatur übertrage

[neolithos]

Delphi-Quellcode:

Shape.Left := Shape.Left + 3; // 3 Pixel nacht Rechts
Shape.Left := Shape.Left - 3; // 3 Pixel nacht Links

Left gibt bloß die Linke (->Left) X-Koordinate an. Wo sich das Shape befindet.

[Luckie]

Kuck dir mal OnKeyDown an. Die Tastencodes sind VK_LEFT und VK_RIGHT.

[KermitFrosch]

wie soll denn das gehen?

[Matze]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_left then Shape1.Left := Shape1.Left - 1;
  if key = vk_right then Shape1.Left := Shape1.Left + 1;

  //evtl. auch noch das hier, falls du's brauchst:
  if key = vk_up then Shape1.Top := Shape1.Top - 1;
  if key = vk_down then Shape1.Top := Shape1.Top + 1;
end;

[KermitFrosch]

thx... :zwinker:

[KermitFrosch]

und jez noch eine frage:

Ich möchte, dass wenn ich mit dem einen shape die gleichen koordienaten wie ein zweites shape erreiche, sich die farbe des ersten shapes ändert... das mit der veränderten farbe habe ich schon, bloß mit den koordinaten nicht

[Luckie]

Vergleich doch die Positionen der Shapes mit einer if-Abfrage: Wo ist da das Problem? Und biutte für eine neue Frage, einen neuen Thread.

[KermitFrosch]

wie soll man denn die position bestimmen?