Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.03.2010, 18:05   #1
DarkHacker
Форумчанин
 
Аватар для DarkHacker
 
Регистрация: 12.04.2008
Сообщений: 105
Печаль Движение курсора по траектории

Хай! Проблемка есть у меня,хочу я что бы курсор двигался по траектории описывая разлицные геометрические фигуры (элипс,квадрат и т.д.) при этом изменял параметры фигуры (радиус элипса,стороны квадрата). Пока накидал только такой код:

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
  var
pt:TPoint;
dx,dy:integer;
begin
   dx:=1;
   dy:=1;
Application.ProcessMessages;
Screen.Cursor := CrHourglass;
GetCursorPos(pt);
SetCursorPos(pt.x + dx, pt.y - dy);
Application.ProcessMessages;

end;
как быть дальше? ПОмогите!
DarkHacker вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перемещение рисунка по траектории Noob333 Помощь студентам 1 28.04.2009 09:42
Движение фигуры по траектории Dgohn Общие вопросы Delphi 3 08.01.2009 09:36
Отловить движение курсора, диалоговые сообщения. Deight Общие вопросы Delphi 15 17.11.2008 11:28
движение вокруг тела по заданной траектории PADOCTb Помощь студентам 2 12.10.2008 15:39


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840