Shift + NumPadX erkennen

[KodeZwerg]

Wie sah Dein Code mit procedure TForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); aus?

Ps: Kann es sein das Du das eventuell mit Num-Lock Abfrage realisieren musst?

[Amateurprofi]

Zitat von KodeZwerg:

Wie sah Dein Code mit procedure TForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); aus?

Ps: Kann es sein das Du das eventuell mit Num-Lock Abfrage realisieren musst?

Delphi-Quellcode:

procedure TMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   Info(piInfo,IntToHex(Key,2)+' '+IntToStr(Ord(ssShift in Shift)));
end;

"Info" ist eine meiner Standard-Prozeduren, die einen Text in dem durch den ersten Parameter definierten Panel der Statusbar ausgibt.

NumLock ist na klar "down".