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