FormKeyUp Event

[Edelfix]

Hallo,

ich glaube ich stehe grad auf der Leitung.
Es geht darum das ich einen Quellcode von onKeyPress zu OnKeyUp umgezogen habe weil OnKeyPress nicht mehr feuert.
In OnKeyPress konnte ich mit Key: Char arbeiten.
In OnKeyUp muss ich mit Key: Word arbeiten.

Wie erkenne ich ob die Taste 1 (Zahl: eins) gedrückt wurde oder die Taste 1 (Zahl: eins) von dem NumLockBlock?

[Uwe Raabe]

Die auf dem Nummernblock hat den Code VK_NUMPAD1

[Uwe Raabe]

Der Vollständigkeit halber: Die Zifferntasten im Alpha-Block haben die normalen Char-Codes, also $31 für die '1'.

[Klaus01]

.. kannst Du da nicht die virtuellen KeyCode nutzen?

vk0 0-Zahl
vkNumPad0 0-Zahl vom Nummernblock.

Grüße
Klaus

[Edelfix]

So in etwa?

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if key=vkNumpad1 then
    FSuchString := Char(49)
  else
    FSuchString := Char(key);
end;

Dann muss ich jede Taste einzeln abarbeiten.

[Uwe Raabe]

Kommt drauf an, was du erreichen willst. Sollen die Num-Ziffern als normale Ziffern interpretiert werden?

[Klaus01]

.. warum willst Du die denn überhaupt unterscheiden.
char(49) ist die Ziffer 1 - wenn NunMlock gedrückt ist, dann liefert auch das NumPad die Ziffer 1.

Grüße
Klaus

[Edelfix]

Beim drücken auf eine Taste öfnet sich ein Eingabefeld (FSuchString).

Wenn eine Num Taste gedrückt wird dann kommt als erste Eingabe ein Buchstabe.

Bei Num Taste 1 ist es "a". Weil Key=79 ist und mit Char(Key) bekomme ich ein "a".

[Uwe Raabe]

Delphi-Quellcode:

  if Key in [VK_NUMPAD0 .. VK_NUMPAD9] then
    Key := $30 + Key - VK_NUMPAD0;

[Edelfix]

Perfekt.
Das ist die Lösung.

Vielen Dank Uwe.