Эмулируем нажатие клавиши на клавиатуре

[~Jack~]

Сейчас мы узнаем, как эмулировать нажатие клавиши на клавиатуре. Этот пример отлично подойдет для написания какой-нибудь экранной клавиатуры, поможет вам сделать нечто подобное калькулятору Windows т.е что бы пользователь мог вводить числа и символы не только с клавиатуры, но и при помощи мышки. Вообще вариантов применения огромное множество. Итак, для начала кидаем на форму компонент Edit с закладки Standart и компонент Button. Создаем, обработчик событий на кнопке и в нем прописываем следующий код.

SendMessage(Edit1.handle, wm_char, ord('ы'), 0);

Вот так будет выглядеть обработчик событий OnClick для кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Edit1.handle, wm_char, ord('ы'), 0);
end;

P.S После нажатия на кнопку в Edit1 будет добавляться символ "Ы", тем самым эмулируется нажатие клавиши на клавиатуре.