Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Категории
Примеры на Delphi7 [110]
Помощь по Delphi [12]
Описание процедур и т.п. на Delphi [7]
Главная » Статьи » Delphi » Примеры на Delphi7
Эмуляция нажатия клавиатуры

Нам потребуется Едит со вкладки Стандарт, а так же буттон с той же вкладки.


В кнопочке пишем:


SendMessage(Edit1.handle,wm_char,ord(''),0);              В кавычках ('') вписываем букву, которая будет отображаться в эдит при нажатии данно клавиши)))


Вот и все.

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (20.03.2011)
Просмотров: 2292 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 2
1 AVATAR007  
0
Где кодинг?

2 DelphiAiX  
0
Покажу на примере.

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


В этом примере, при условии что на форме существует TEdit, при нажатии кнопки Button1, в тексте TEdit'a добавится символ "Б".

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
  тИЦ и PR сайта www.aix.ucoz.ru Protected by Copyscape Web Copyright Protection Software Счетчик цитирования
Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума