Key abfrage

[EWeiss]

Zitat von Roachford:

Zitat von EWeiss:

Unter Basic hab ich kein problem mit dem oben geposteten code schnipsel

Der Code entspricht dem folgenden:

if GetAsyncKeyState(33) and 128 = 128 then Alternativ:

if GetAsyncKeyState(33) < 0 then

Ich habe aber ein Problem damit gut ist ein Sample von dir.
Warum muss ich hier eine IF abfrage stellen ich übergebe doch den wert

Delphi-Quellcode:

function IsKeyDown(CheckKey: Integer): SmallInt; 
begin 
    result := (GetAsyncKeyState(CheckKey) and 15); 

end; 

function IsLButtonDown: Integer; 
begin 
    Result := IsKeyDown(1); 

end;

IsLButtonDown übergibt den wert 1 und ich erwarte von meiner Funktion die rückgabe wie der status ist
also in dem Fall

result := (GetAsyncKeyState(1) and 15); Wie sollte es deiner meinung nach funktionieren ?
result := (GetAsyncKeyState(1) and 128); ? Ich brauche doch die IF abfrage nicht..
Oder wir reden aneinander vorbei
Danke für deine Hilfe .. habs vergessen

gruss Emil