delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Нажатие на клавишу и отпускание - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: winxaker  
Форум » Программирование » Исходники » Нажатие на клавишу и отпускание (Работа с кнопками)
Нажатие на клавишу и отпускание
TohaДата: Суббота, 19.03.2011, 17:50 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 91
Награды: 11
Репутация: 14
Статус: Offline
Запускаем Delphi
Жмем File ==> New ==> Application
Кидаем на форму Edit со вкладки Standard и два Timer со вкладки System

У первого таймера меняем свойство Interval на 3000 устанавливаем 3 секунды
Кликаем по первому таймеру 2 раза и прописываем между begin и end

Code
timer2.Enabled:=true; // включаем второй таймер

У второго таймера меняем свойство Enabled на False
и кликаем по второму таймеру два раза стираем begin
и между procedure и end пишем

Code

var
i:integer; // Создаем переменную строкового типа.
begin
      // Десять нажатий на пробел(space) нажимаем и отпускаем
      for i := 1 to 10 do begin // Задаем цикл (выполняем действие 10 раз)
        keybd_event(VK_space, 0, 0, 0); // Нажимаем продел (space).
        keybd_event(VK_space, 0, KEYEVENTF_KEYUP, 0); // отпускаем пробел (space).
        // Отключаем нажатия
        Timer1.Enabled:=false;
        Timer2.Enabled:=false;
      end;

А если надо нажать букву А например то:

Code

keybd_event(Ord('A'), 0, 0, 0); // Нажатие 'А'.

Надеюсь все понятно расписал.

Прикрепления: ____.rar(161.7 Kb)




Помог ??? Ставь + или надраду
 
Форум » Программирование » Исходники » Нажатие на клавишу и отпускание (Работа с кнопками)
  • Страница 1 из 1
  • 1
Поиск:

 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432