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:
Form1.SetFocus
Ich bin gerade echt ratlos!
mfg.