Also so langsam versteh ich gar nix mehr..aber egal
Mein Programm sieht jetzt folgendermaßen aus:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetAsyncKeyState(vk_left) <0 then
walk(1);
if GetAsyncKeyState(vk_right)<0 then
walk(3);
end;
was für mich auch eigentlich logisch ist und eigentlich funktionieren müsste.
Ich verstehe es so:
die procedure checkt (jetzt alle 100 ms)ob eine pfeiltaste (links oder rechts) gerade gedrückt wird und wenn ja , dasnn soll sich die figur entsprechend bewegen.
Das ende vom lied ist, das die scheiß procedure gar nix macht!!
das heißt: schon wieder ein logischer fehler in meinen / unserem plan
enabled ist auch auf true gesetzt.
gruß der flo