bewegung mit Pfeiltasten

Zlatan · Beiträge: 175

Wie kann ich mit Hilfe der Pfeiltasten einen einfachen punkt bewegen?
Also sodass ich bei Programmstart eine Punkt mit den Pfeiltasten bewegen kann.

Der Punkt kann z.B. ein Shape sein, oder?

:

Moderiert von Martok: Topic aus Sonstiges (Delphi) verschoben am Di 25.01.2011 um 14:35

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

z.B. so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_Left: shape1.Left := shape1.Left -1;
    VK_Right: shape1.Left := shape1.Left +1;
  end;
end;

Zlatan · Beiträge: 175

und was ist mit hoch und runter

Der Text scheint sehr fehlerhaft zu sein z.B. ist das var.. in einer Klammer
Ich habe es ausprobiert und es gibt viele Fehler

Brauche einen kompletten quelltext mit Deklarationen
Benutz wird nur ein Shape

HenryHux · Verfasst: Di 25.01.11 16:09

Der Text sollte so eigentlich richtig sein.
Wähle bei den Events der Form das Event KeyDown aus und Doppelklicke es.
Danach solltest du das Grundgerüst haben.
Ein var kann übrigens auch in den Parametern stehen.
Lies dir dazu mal ein Kapitel über die call by reference durch. -> de.wikibooks.org/wik...call_by_reference.29

Lg

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Hoch und runter geht ebenso.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_Left: shape1.Left := shape1.Left -1;
    VK_Right: shape1.Left := shape1.Left +1;
    VK_Up: shape1.Top := shape1.Top -1;
    VK_Down: shape1.Top := shape1.Top +1;
  end;
end;

Zlatan · Beiträge: 175

sorry funktioniert doch aber trotzdem weiß ich nicht wie hoch und runter geht
jetzt schreibst du es

DANKE

Zlatan · Beiträge: 175

eine frage hätte ich noch was ist mit diagonal gehen?

Namenlosnameless · Verfasst: Di 25.01.11 16:34

In in dem du 2 Pfeile kombinierst

_________________
1:<<Life sucks!!>> 2:<< Well okay>> 1: <<Just Yours>> 2:<<Ohmph>>

Zlatan · Beiträge: 175

wenn ich 2 pfeile gleichzeitig drücke geht das shape in die richtung, wo ich zuerst gedrückt habe
diagonal kann es noch nicht gehen

jaenicke · Verfasst: Di 25.01.11 17:53

Das wird so auch nie gehen. Das geht nur mit GetKeyState / GetAsyncKeyState oder ähnlichem, wenn du den Status der Tasten abfragst.

Zlatan · Beiträge: 175

Was???

jaenicke · Verfasst: Di 25.01.11 18:13

DELPHI GETKEYSTATE :roll:

Erstes Ergebnis... :roll:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme