Главная | Регистрация | Вход
Четверг, 07.08.2025, 08:05
Приветствую Вас Гость | RSS
Навигация:
Категории:
Базы данных [9]
Графика и Игры [0]
Интернет и Сети [0]
Компоненты и Классы [0]
Мультимедиа [0]
ОС и Железо [0]
Программа и Интерфейс [0]
Технологии [0]
Файловая система [0]
Программирование на Delphi [23]
Обучающие статьи [26]
Небольшие уроки по Delphi
Синтаксис [0]
Рабочий стол [0]
qwerty [0]
Чат сайта:
Главная » Статьи » Обучающие статьи

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

Категория: Обучающие статьи | Добавил: NekitoS (20.04.2009)
Просмотров: 690 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Контакты
ICQ:306182
Статистика
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Copyright "Delphi Project Ltd" © 2025