![]() |
Re: Tasten abfragen
Diese KeyDown-Abfrage funktioniert leider nicht für die gesamte Anwendung, sondern nur für die fokussierte Form oder Listbox etc. Geht das nicht auch etwas ... globaler?
|
Re: Tasten abfragen
Tasten immer abfangen:
Delphi-Quellcode:
unit Unit1;
... implementation {$R *.dfm} function KeyPressed: Integer; var i : Integer; buf : TKeyboardState; begin Result:=-1; if GetKeyboardState(buf) then begin for i:=0 to High(buf) do begin if (buf[i] and $80)<>0 then begin Result:=i; Exit; end; end; end; end; function IsKeyDown(vk : Integer) : Boolean; begin Result:=(GetAsyncKeyState(vk)<0); end; procedure TForm1.Timer1Timer(Sender: TObject); begin if IsKeyDown(vk_Escape) then windows.beep(880,20); case KeyPressed of vk_Space: windows.beep(440,20); // ... // ... end; end; end. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz