Key abfrage

[EWeiss]

Zitat von nahpets:

Hallo Emil,

so?
 if (GetAsyncKeyState(33) and 15) = 1 then ShowMessage('ist gedrückt') else ShowMessage('ist nicht gedrückt'); 33 = Bild auf
34 = Bild ab

GetAsyncKeyState ist in Windows.pas definiert.

Jo danke das kann ich mir hinbiegen wie ich es brauche

Danke für eure Hilfe.
Wenns mal fertig stell ich den Source Online

EDIT:
Also das richtige resultat bekomme ich nicht

Delphi-Quellcode:

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

end;

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

end;

// Überprüfe SHIFT key status
function zIsShiftKeyPressed: Integer;
begin
    Result := IsKeyDown(16);

end;

// Überprüfe CTRL key status.
function zIsCtrlKeyPressed: Integer;
begin
    Result := IsKeyDown(17);

end;

// Überprüfe rechten Mouse button status
function IsRButtonDown: Integer;
begin
    Result := IsKeyDown(2);

end;

wird immer 0 zurückgegeben .. hmm

gruss Emil