Мышь - управление с клавиатуры

← →
Charly (2003-06-09 14:42) [0]

У меня имеется TImage, для которого создан обработчик события OnMouseMove. Все прекрасно работает.
Но проблема в том, что иногда нужно передвигаться по картинке попиксельно. А подвинуть мышь руками на ОДИН пиксель достаточно проблематично.

Поэтому есть идея организовать попиксельное перемещение мышинного курсора по картинке с помощью клавиш-стрелок на клавиатуре. Может, кто-нибудь подскажет мне, как такое реализовать на Дельфи? Можно ли это вообще сделать и будет ли при этом срабатывать событие OnMouseMove для TImage?

З.Ы. Можно, конечно, ничего не придумывать, а установить вместе с Windows примочку "Специальные возможности", где есть ф-ция управления мышью с помощью малой цифровой клавиатуры. Но как-то не солидно заставлять пользователя устанавливать еще дополнительные компоненты Windows.

← →
VMcL © (2003-06-09 14:48) [1]

>Charly (09.06.03 14:42)

TForm.OnKeyDown (+ TForm.KeyPreview, если нужно будет)

← →
Skier © (2003-06-09 14:49) [2]

IMHO нужно :
-определять направление движения мыши
TMouseMoveDirection =(mmdUp,
mmdDown,
mmdLeft,
mmdRight
)
-и прибавлять(или отнимать) по единичке
-толко, imho, нужно ловить WM_MOUSEMOVE (вместо OnMouseMove)

← →
Charly (2003-06-09 15:04) [3]

Для Skier.

Если не трудно, можно поподробней?

Например, для движения вверх:

case Key of
VK_UP: begin
.......
.......
end;

end; // of case

Хотелось бы посмотреть код на месте многоточий.

Спасибо.

я про мышь говорил, а не про клавиатуру.

Мышь - управление с клавиатуры Найти похожие ветки