Genaue Taste bei einer Message ermitteln

[dataspider]

Hi,

stehen in wparam, musste mal ein eigenes KeyHandling wie folgt integrieren:

Delphi-Quellcode:

procedure TrwCustomForm.WMKeyPress(var Message: TMessage);
Var
  Key: Word;
  Keyboard: TKeyboardState;
  Shift: TShiftState;
begin
  GetKeyboardState(Keyboard);
  Shift := KeyboardStateToShiftState(Keyboard);
  if (Message.WParam >= Low(Word)) and (Message.WParam <= High(Word)) then
  begin
    key := Message.WParam;
    // eigene Routine aufrufen
    // wichtig ist Result, damit Behandlung abgebrochen wird, wenn von KeyPressEx behandelt
    Message.Result := KeyPressEx(Key, Shift);
  end;
end;

Cu, Frank