Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Auf Page Up und Page Down reagieren (https://www.delphipraxis.net/89205-auf-page-up-und-page-down-reagieren.html)

Dragon27 27. Mär 2007 12:55


Auf Page Up und Page Down reagieren
 
Hallo,

ich würde gerne die Tasten Einfg, Entf, Pos1, Ende, Bild up, Bild down abfragen und darauf reagieren.
Leider hab ich in der JVCL die Tasten Bild up und Bild down in der Komponente JvApplicationHotKey1 nicht.

Wie kann ich darauf reagieren?

Danke!

jakobwenzel 27. Mär 2007 12:57

Re: Auf Page Up und Page Down reagieren
 
Als Hotkey, also Systemweit, oder nur in der eigenen Anwendung?

Dragon27 27. Mär 2007 12:58

Re: Auf Page Up und Page Down reagieren
 
Hallo,

also Systemweit ist zwar wünschenswert, muss aber nicht sein.
Die einfachste Lösung währe das beste... ;-)

Danke für deine Mühe!

Matze 27. Mär 2007 13:08

Re: Auf Page Up und Page Down reagieren
 
Hi,

systemweit ginge es mit Hooks bzw. Hier im Forum suchenRegisterHotkey. Anwendungsweit beispielsweise so:

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_NEXT then
  begin
    ShowMessage('Page Down gedrückt');
  end;
end;
Evtl. noch KeyPreview des Formulars auf true stellen.

Die Liste der virtuellen Tastencodes findest du hier.

Dragon27 27. Mär 2007 19:31

Re: Auf Page Up und Page Down reagieren
 
Hallo,

erstmal danke für die Hilfe....

Mhm dann hab ich da noch eine Frage... Ich habe bei meiner Tastatur sogenannte "Funktionstasten"
Kann ich die auch abfragen?

Danke Gruß Andy

Matze 27. Mär 2007 19:34

Re: Auf Page Up und Page Down reagieren
 
Hallo,

du kannst mal schauen, ob dir das etwas anzeigt (nur als simpler Test). Wenn nicht, wird das sicher über einen Treiber gelöst und das wird schwer. Aber suche mal im Forum, sowas hatten wir schon ein paar Mal.

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ShowMessage(IntToStr(Key));
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:09 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-2025 by Thomas Breitkreuz