Подсчет нажатий клавиш на клавиатуре

@pixel · Регистрация: 19.05.2009

Author24 — интернет-сервис помощи студентам

Приветствую.
Понадобилось сделать сабж, но дело тут вот в чем. Счетчик должен плюсовать только нажатия "обычных" клавиш (ну т.е. А-Я, а-я, A-Z, a-z,1-0,!-+, т.е. все F1-F12, инсерты, делеты, намлок, капслок, табуляция и т.п. не требуется). Подскажите, как лучше (оптимальнее) проверять в какую категорию относится клавиша?

@droider · 08.12.2015, 18:02

pixel,

Delphi

var
  Form1: TForm1;
    k:Integer; // глобальная переменная-счетчик
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
k :=0;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if not (Key in [VK_F1..VK_F12, VK_DELETE, VK_INSERT, VK_TAB, VK_NUMLOCK, VK_CAPITAL])then inc(k);
Label1.Caption :='Количество нажатий '+IntToStr(k);
end;

@pixel · 08.12.2015, 18:23 **[ТС]**

ну с формой то понятно, а если речь идет о консольном приложении?

@droider · 08.12.2015, 18:44

Сообщение от pixel

а если речь идет о консольном приложении?

Тогда нужно говорить об этом сразу!
Вам понадобится модуль CRT32 для работы с консолью в Delphi и функция ReadKey() из этого модуля + эта статья.

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,288
		1
	Подсчет нажатий клавиш на клавиатуре 08.12.2015, 17:04. Показов 4178. Ответов 3 Метки нет (Все метки) Приветствую. Понадобилось сделать сабж, но дело тут вот в чем. Счетчик должен плюсовать только нажатия "обычных" клавиш (ну т.е. А-Я, а-я, A-Z, a-z,1-0,!-+, т.е. все F1-F12, инсерты, делеты, намлок, капслок, табуляция и т.п. не требуется). Подскажите, как лучше (оптимальнее) проверять в какую категорию относится клавиша? 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,288
	08.12.2015, 18:23 [ТС]	3
	ну с формой то понятно, а если речь идет о консольном приложении? 0

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,140
	08.12.2015, 18:44	4
	Сообщение от pixel а если речь идет о консольном приложении? Тогда нужно говорить об этом сразу! Вам понадобится модуль CRT32 для работы с консолью в Delphi и функция ReadKey() из этого модуля + эта статья. 1