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

Статьи о Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Июнь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

1.399 подписчиков
-9 за неделю
←   Все выпуски   →

Статьи о Delphi Немного о мышке часть 1


Информационный Канал Subscribe.Ru 
             Здраствуйте уважаемые подписчики!
Сегодня мы рассмотрим прикольные случаи с свойствами мыши.              

              Как узнать текущие координаты мышки.

Для этого можно воспользоваться API функцией GetCursorPos. 
Передав в эту функцию TPoint, мы получим текущие координаты курсора. 
Следующий код показывает, как получить значения координат курсора 
по нажатию кнопки.
//код
procedure Form1.Button1Click(Sender: TObject);
var
  foo: TPoint;//обявлаем переменные
begin
  GetCursorPos(foo)//Берем координаты
  ShowMessage( '(' + IntToStr(foo.X) + ' ,' + IntToStr( foo.Y ) + ')' );//выводим
сообщение
end;

// конец кода

            Как программно двигать курсор мышки.


Следующий пример показывает, как "подтолкнуть мышку" 
без вмешательства пользователя.

procedure TForm1.Button1Click(Sender: TObject);
var
  pt : TPoint;//обявляем переменные
begin
   Application.ProcessMessages;
   Screen.Cursor := CrHourglass;
   GetCursorPos(pt);//берем коор.
   SetCursorPos(pt.x + 1, pt.y + 1);//изм. коор.
   Application.ProcessMessages;//утверждаем
   SetCursorPos(pt.x - 1, pt.y - 1);//изменяем
end;


                   Как скрыть курсор мышки.

Поместите в событие OnClick в button1 и button2 следующие коды.
Если курсор мышки скрыт, то выбрать button2 можно клавишей Tab.

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False);//скрываем курсор
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True);//показываем курсор
end;
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.qwertyzxc 		Отписаться
Вспомнить пароль
В избранное