Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Мар

Конвертировать код клавиши в её название

Posted by Chas under Delphi

сразу такой вопрос: надо чтобы в одном столбце StringGrid при щелчке по ячейке вызывалось что то вроде события: можно было бы нажать какую либо клавишу и ее название (не код!) записалось в ячейку, например нажал Enter в ячейку записалось Enter (не #13)

Аватар
Для одиночных нажатий работает



function NameKey(Key: Cardinal): string;

var xCode: Cardinal;

    c: array[0..255] of Char;

begin

  xCode:=MapVirtualKey(Key,0) shl 16;

  case Key of

  19:     xCode:=3225747457;

  34..46: xCode:=xCode or (1 shl 24);

  144:    xCode:=3242524673;

  end;

  if xCode>0 then begin

    GetKeyNameText(xCode,c,SizeOf(c));

    Result:=c;

  end

  else Result:='';

end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  Label1.Caption:=NameKey(Key);

end;