Эмулируем нажатие клавиши клавитуры
Уроки програмирования на языке Delphi.
Сейчас мы узнаем, как эмулировать нажатие клавиши на клавиатуре. Этот пример отлично подойдет для написания какой-нибудь экранной клавиатуры, поможет вам сделать нечто подобное калькулятору 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 будет добавляться символ «Ы», тем самым эмулируется нажатие клавиши на клавиатур