Ich hab ganz vergessen zu sagen was mit dem programm nicht stimmt...
Ich bekomme keine fehlermeldung ...
Das kann nicht sein, der Code den du gepostet hast ist so nicht kompillierbar. Bist du sicher das du uns den richtigen Code geschickt hast?
Wenn du dein Shape mit den Pfeiltasten bewegen willst brauchst du doch nicht die 2 Timer die da dazwischen funken und dein Shape selbst auch bewegen oder?
... aber der Shape 2 bewegt sich leider nicht wenn ich meine pfeiltasten benutze.
Im Code bewegst du ja auch Shape1, sowohl in den Timern als auch mit den Pfeiltasten.
Ich würde erstmal nachsehen ob OnKeyDown überhaupt getriggert wird indem du dort einen Haltepunkt setzt und mit F9 den Debugger startest, dann kannst du auch sehen ob sich da überhaupt was tut.
PS:Ich wollte gar nicht eine IF schleife haben,wo kommt denn hier,bin halt ein profi programmierer
Steht bei dir auf der 3. Zeile im Code, ich denke mal das du uns einen anderen Code gegeben hast.
Versuchs mal so:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF key = VK_Down THEN shape2.Top := shape2.Top +5;
IF key = VK_UP THEN shape2.Top := shape2.Top -5;
IF key = VK_RIGHT THEN shape2.Left := shape2.Left +5;
IF key = VK_LEFT THEN shape2.Left := shape2.Left -5;
end;
Hier ist die if-abfrage die du ja nicht willst draussen und es wird auch shape2 (Falls es denn auch wirklich shape2 heisst!) bewegt.
Freundliche Grüsse