Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Передвижение мыши на TPanel

Автор: Ripper 4.4.2009, 20:16

есть TPanel, как сделать так чтобы передвигать мышь на ней можно было
а) только с шагом 5 к примеру. т.е. по Х и по У я могу передвинуть мышь только на 5 координат
б) по сетке с шагом 5. Т.е. мышка передвигается только по воображаемое сетки, из ячеек длиной 5. Отлчиие от первого что она не перескакивает каждые 5 координат, а может передвигаться, но только как бы перпендикулярно\параллельно границам

Я пробывал в onmousemove писать что то типа x mod 5 и т.п., только мышка то все равно передвигается.

Автор: mopsa 4.4.2009, 23:00

Код


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  mPoint: TPoint;
begin
  if GetCursorPos(mPoint)=true then
      SetCursorPos(mPoint.x-(x mod 5),mPoint.y-(y mod 5));
end;

это конечно коряво работает, но как-то так