Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование от Судьи [www.del5.da.ru] Выпуск от 15/05/2002 года


Информационный Канал Subscribe.Ru


- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

 

================================================================================

Сегодня мы разберем алгоритм имитирования нажатий клавиш.

 

Исходный текст:

---------------------

var
Pt : TPoint;
begin
{Позволим кнопке Button2 перерисоваться}
Application.ProcessMessages;
{Найдем координаты центра button 1}
Pt.x := Button1.Left + (Button1.Width div 2);
Pt.y := Button1.Top + (Button1.Height div 2);
{Преобразуем Pt к координатам экрана}
Pt := ClientToScreen(Pt);
{Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));
{Переместим курсор мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,Pt.x,Pt.y,0,0);
{Имитируем нажатие левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,Pt.x,Pt.y,0,0);;
{Имитируем отпускание левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,Pt.x,Pt.y,0,0);;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

- www.sourses.ru - Исходные тексты программ, огромное кол-во!

- www.delphi4all.narod.ru - хороший сайт

- www.chertenok.km.ru - очень хороший сайт по DELPHI

- www.delphi.da.ru - много faq-ов по Delphi

- www.delphi.mastak.ru - множество полезных вещей для DELPHI

- www.delphi4.boom.ru - без коментариев

- www.delphi5.boom.ru - полезный сайт

- www.delphi.boom.ru - полезный сайт

- www.delphi.narod.ru - без коментариев

- www.delphi4.narod.ru  - без коментариев

- www.delphi5.narod.ru  - без коментариев

На последок:

- Анекдот

Сидят на заборе в городе два петуха: городской и деревенский.
Скучают. Деревенский тут и говорит:
- Давай, что ли покукарекаем?
- Давай лучше в кулинарию сходим - на голых кур посмотрим.


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное