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 Tastatureingaben (https://www.delphipraxis.net/25249-tastatureingaben.html)

CReber 3. Jul 2004 14:35


Tastatureingaben
 
Wenn man im eigenen Programm abfangen möchte OB die Tastatur betätigt wurde, geht das nur über einen Hook? Ich möchte nicht wissen welche Taste gedrückt wurde sondern nur OB ;)

czapie 3. Jul 2004 15:21

Re: Tastatureingaben
 
Hast du dich schon mit Hooks auseinandergesetzt?

Wenn die Hookprozedur anspringt, dann weißt du, dass eine Taste gedrückt wurde,
du mußt die Parameter, die Infos enthalten ja nicht verabeiten!
Ich hoffe ich habe dich richtig verstanden.
Czapie.

CReber 3. Jul 2004 15:33

Re: Tastatureingaben
 
Ja ich habe es momentan ja auch mit einem Hook realisiert aber evtl. gibt es ja eine API für KeyboardInactiveTime oder so ^^

CReber 3. Jul 2004 16:00

Re: Tastatureingaben
 
Bin leider nicht so helle in Message-Dingen aber ich meine sowas wie hier:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure KeyDown(var Msg: TWMKey); Message WM_KEYDOWN;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  KeyCount: integer;

implementation

{$R *.dfm}

procedure TForm1.KeyDown(Var Msg: TWMKey);
begin
  Inc(KeyCount);
  Label1.Caption:=IntToStr(KeyCount);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyCount:=0;
end;
Nachteil ist einfach das dass nur reagiert solange das Fenster auch aktiv ist... Wie kann ich das einfach ändern?

Luckie 3. Jul 2004 16:04

Re: Tastatureingaben
 
Zitat:

Zitat von hOnkibOnk
Nachteil ist einfach das dass nur reagiert solange das Fenster auch aktiv ist... Wie kann ich das einfach ändern?

Wie schon gesagt wurde durch einen Hier im Forum suchenHook.

CReber 3. Jul 2004 16:11

Re: Tastatureingaben
 
grmL immer diese Sinnloskommentare


Alle Zeitangaben in WEZ +1. Es ist jetzt 14: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