Keyrepeat abschalten

[Sharky]

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

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;