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