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".