Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Keyrepeat abschalten (https://www.delphipraxis.net/108986-keyrepeat-abschalten.html)

Sharky 24. Feb 2008 07:47

Re: Keyrepeat abschalten
 
Zitat:

Zitat von xaromz
... In den Bits 0-15 von lParam steht der Repeat Count. ...

Hai xaromz,

danke für den Tipp.

Aber irgendwie stehe ich da auf dem Schlauch :oops:

Wenn ich mir aus den Bits 0-15 von lParam ein Integer mache hat dieses immer den Wert 1.
Delphi-Quellcode:
procedure TDemo_Form.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  locCount : Integer;
begin
  if Msg.message = WM_KEYDOWN then
  begin
    locCount := Msg.lParam AND $FFFF;
    Label1.Caption := IntToStr (loccount);
  end;
end;

himitsu 24. Feb 2008 10:17

Re: Keyrepeat abschalten
 
Zitat:

Zitat von MSDN
0-15: Specifies the repeat count for the current message. The value is the number of times the keystroke is autorepeated as a result of the user holding down the key. If the keystroke is held long enough, multiple messages are sent. However, the repeat count is not cumulative.

Das ist slso nur die Anzahl seit der vorherrigen Message.

Windows optimiert hier mal zur Abwechslung etwas :shock:
Delphi-Quellcode:
if Msg.message = WM_KEYDOWN then
begin
  locCount := Msg.lParam AND $FFFF;
  Label1.Caption := IntToStr (loccount);
  Sleep(500);
end;
und rechnet die letzten gleichen Nachrichten zusammen.


[add]
ich wollte grad vorschlagen eine Liste anzulegen, welche Tasten grad gedrückt sind und die aktiven Tasten dann bei den nächsten KeyDowns zu ignorieren.
KeyDown in Liste eintragen | KeyUp wider daraus löschen
usw.

und zu Xong's Vorschlag ... es muß nicht immer nur eine Taste gleichzeiig gedrückt sein ... bei mehreren kommt das Programm so durcheinander, da so nicht geprüft wird welche Taste grad gemeint ist.


aber schau dir mal Bit 30 in lParam an :shock:
(grad noch so gesehn)

Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if Msg.message = WM_KEYDOWN then
  begin
    if Msg.lParam AND $40000000 = 0 then
    begin
      ...
    end;
  end;
end;


// und zum Testen
if Msg.message = WM_KEYDOWN then
begin
  locCount := Msg.lParam AND $40000000;
  Label1.Caption := IntToStr (loccount);
end;
Zitat:

Zitat von MSDN
30: Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is zero if the key is up.


BrightAngel 24. Feb 2008 11:21

Re: Keyrepeat abschalten
 
Kann man nicht auch einfach in der 'OnKeyPress' ein 'KeyUp' aufrufen?
Gruß Brighty

cruiser 24. Feb 2008 11:28

Re: Keyrepeat abschalten
 
ja, aber nicht anwendungs-global

Sharky 25. Feb 2008 06:50

Re: Keyrepeat abschalten
 
Zitat:

Zitat von himitsu
... aber schau dir mal Bit 30 in lParam an :shock: ....

Hai himitsu,

das sieht doch sehr gut aus!

Danke Dir :P


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr.
Seite 2 von 2     12   

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