如何区分大、小键盘的数字'1'键

Question

如何区分大、小键盘的数字'1'键

Answer 1

错了，是keydown
大为49
小为97 别的数字累加！

Answer 2

if key = 49 then
  showmessage('大');
if key = 97 then
  showmessage('小')

Answer 3

procedure TFloorsForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 49 then
    showmessage('大');
  if key = 97 then
    showmessage('小')
end;