Манипуляции с мышью

[halcyon]

Уважаемые скилованные программисты! Возможно ли в приложении изменить поведение мыши, а именно:

1). замедлить ее движение, т.е. ограничить скорость передвижения по форме приложения, даже при резком движении мышью, ее скорость будет ограничена каким-либо значением;
2). Заменить стандартный курсор мыши графическим изображением;
3). Задать области в приложении, границы которых курсор пересечь не сможет.

Было бы весьма любопытно взглянуть на примеры решения данных ситуаций в таких средах как: VS C++ 2010, Borland Delphi 7.

[phomm]

2)

const
  crUsual = 5;
...
procedure LoadCursors ();
begin
  Screen.Cursors[crusual] := LoadCursorFromFile(PAnsiChar(apppath+'graf\usual.ani'));  
end;
...
Screen.Cursor := crusual;

Я использую данный способ при наличии файла курсора (*.cur, *.ani)

Просто для рисования картинки вместо курсора:

Screen.Cursor := crNone;
...
procedure TForm1.timer1timer(Sender: TObject); // событие таймера 
begin
// формирование предыдущей части кадра
...
canvas.draw(x,y, cursorpicture); // cursorpicture - созданная вами картинка для курсора
end;

Как-то так, экспериментируйте

Насчёт 1 и 3 - точно ли данные методы нужны ? может есть что более удобное для юзера и для Вас как программиста

[Андрей 93]

1) Можно считать изменение позиции мыши dl (это вектор) за 1 ""тик" таймера,

 если модуль(dl)>a

(a - ограничение скорости), то необходимо вернуть курсор немного назад:

x:=x-перемножить(орт(dl),длина(dl)-a).x

3) если область прямоугольная, то можно делать проверку: вошёл ли курсов в эту облать. А если вошёл, то вытолкнуть его по нормали на поверхность. Данный способ будет плохо работать при быстром движении мыши. Ничего другого в голову так сразу не приходит

[halcyon]

Сообщение от Андрей 93

1) Можно считать изменение позиции мыши dl (это вектор) за 1 ""тик" таймера,

 если модуль(dl)>a

(a - ограничение скорости), то необходимо вернуть курсор немного назад:

x:=x-перемножить(орт(dl),длина(dl)-a).x

было бы любопытно посмотреть на более развернутую мысль