Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2008, 17:59   #1
Манжосов Денис :)
Участник клуба
 
Регистрация: 29.01.2008
Сообщений: 1,039
По умолчанию Безумная мышка

У меня на форме есть один таймер. Через каждые 700 мс выполняется этот код: setcursorpos(random(1000), random(1000)). Цифры вставленые в процедуру значения в данный момент не имеют. Как сделать так чтобы курсор перемещался не по всему экрану, а именно по форме?
Манжосов Денис :) вне форума Ответить с цитированием
Старый 28.04.2008, 18:45   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Код:
 SetCursorPos(Left+random(Width),Top+random(Height));
_Dmitry вне форума Ответить с цитированием
Старый 30.04.2008, 14:15   #3
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
Сообщение

Лучше вместо Width использовать ClientWidth, а вместо Height использовать ClientHeight. Чтобы на заголовок нелезть и ниже.
Alter вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц