Итак, для начала кидаем на форму компонент Edit с закладки Standart и компонент Button. Создаем, обработчик событий на кнопке и в нем прописываем следующий код. Code SendMessage(Edit1.handle, wm_char, ord('ы'), 0); Вот так будет выглядеть обработчик событий OnClick для кнопки: Code procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Edit1.handle, wm_char, ord('ы'), 0); end; P.S После нажатия на Button1 в Edit1 будет добавляться символ "Ы", тем самым эмулируется нажатие клавиши на клавиатуре.
|