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