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

Добавлено: 31 Июля 2018 22:01:40 Добавил: Андрей Ковальчук Нравится 0

Добавить