pfeiltasten

[passsy]

Delphi-Quellcode:

begin //Taste A
   if ab=true then
                  begin
                   if GetKeyState($41) < 0 then
                      begi    
                           ab:=false; 
                           [...]                 
                      end;
                   end;
   if GetKeyState($41) >= 0 then
                                begin
                                 ab:=true;
                                 [...]
                                end;
end;