Richtungsänderung für kleine Grafik

[Mysterio08]

Guten Tag,
ich möchte ein kleines "Spiel" (wenn man es denn schon so nennen darf) programmieren. Ich habe mir auf einem TImage Hindernisse einfärben lassen und erstelle mit einem Timer jede zwanzigstel Sekunde 2 gleichgroße Kreise - einen zum anzeigen für den Benutzer und einen um den anderen wieder "unsichtbar" zu machen. Jetzt ist mein Problem, dass ich die Richtugsänderung nicht programmiert bekomme. Ich habe eine RadioGroup mit "nach oben", "nach rechts" etc. und werte nun das OnKeyDown-Ereignis der TForm so aus.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Ord('E') then RadioGroup1.ItemIndex := 0;
  if Key = Ord('X') then RadioGroup1.ItemIndex := 0;
  if Key = Ord('A') then RadioGroup1.ItemIndex := 0;
  if Key = Ord('D') then RadioGroup1.ItemIndex := 0
end;

Jetzt gibt es allerdings nie eine Änderung, es muss irgendwo eine Störung geben!
Ich habe in den Timer auch schon folgende Zeile erfolglos geschrieben:

Delphi-Quellcode:

Form1.SetFocus

Ich bin gerade echt ratlos!

mfg.

[haentschman]

Hallo...

du setzt ja auch mit jedem Key die Radiogroup auf Index 0.

versuch mal

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Ord('E') then RadioGroup1.ItemIndex := 0;
  if Key = Ord('X') then RadioGroup1.ItemIndex := 1;
  if Key = Ord('A') then RadioGroup1.ItemIndex := 2;
  if Key = Ord('D') then RadioGroup1.ItemIndex := 3;
end;

[Mysterio08]

Sorry, Copy und Paste und dann vergessen, es entsprechend umzuändern... Im Quelltext ist es anders, es klappt aber trotzdem nicht.

[Matze]

Hast du mal versucht die Eigenschaft KeyPreview des Formulars auf true zu setzen?

[Mysterio08]

Zitat:

Zitat von Matze

Hast du mal versucht die Eigenschaft KeyPreview des Formulars auf true zu setzen?

Ja, eben gerade und es funktioniert, vielen Dank dafür!
Jetzt ist noch ein kleines Problem hinzugekommen, ich will die Steuerung ändern, und zwar möchte ich die Num-Taste 2, 4, 6 und 8 verwenden. Ich weiß, dass die 8 den ASCII-Wert #56 hat aber es funktioniert nur mit der 8, mit der ich auch Klammern schreiben kann. Welchen Wert muss ich nehmen?
mfg.

[Matze]

Hallo,

du kannst statt dem OnKeyDown-Ereignis das OnKeyPress-Ereignis nutzen. Dann stehen dir die virtuellen Tastencodes zur Verfügung:

Delphi-Quellcode:

// Numpad 8
if Key = VK_NUMPAD8 then

Grüße, Matze

[Mysterio08]

Zitat:

Zitat von Matze

Hallo,

du kannst statt dem OnKeyDown-Ereignis das OnKeyPress-Ereignis nutzen. Dann stehen dir die virtuellen Tastencodes zur Verfügung:

Delphi-Quellcode:

// Numpad 8
if Key = VK_NUMPAD8 then

Ich habe das gerade mal ausprobiert, ich bekomme immer eine Fehlermeldung: "Inkompatible Typen". Und ich werte schon das OnKeyPress-Ereignis aus

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_NUMPAD8 then

end;

Bei FormKeyPress geht dass nicht, weil Key vom Typ Char ist!

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

end;

[Matze]

Sorry, hab's verwechselt. Ich wusste nur mit einem geht's, mit dem anderen nicht. :oops:

[Mysterio08]

Macht nichts, klappt jetzt wunderbar! Merci