Re: Zeichnen
7. Mär 2009, 16:53
Also meinst du das so:
procedure TForm1.Timer2Timer(Sender: TObject);
var b:byte;
begin
if GetAsyncKeyState(ord('S'))
or GetAsyncKeyState(ord('W'))
or GetAsyncKeyState(ord('D'))
or GetAsyncKeyState(ord('A'))
then
begin
Ab jetzt weiß ich aber nicht wie ich da weiter schreiben soll.
Kannst du mir nochmal helfen.
|