про мышь - отобразить величины смещения курсора мышки (Delphi 7)

[дмитрий12123]

Как сделать, чтоб при движении мышкой возникала табличка и показывала относительное перемещение по осям координат x y? Очень рад любой помощи!


___________
переименовал тему и перенёс.

Модератор

[Stilet]

На каком паскале то?

[дмитрий12123]

делфи 7
как я понял это связано с GetCursorPos()

[DiemonStar]

относительное перемещение по осям координат x y?

относительно какой точки перемещение?

как я понял это связано с GetCursorPos()

на форме есть событие OnMouseMove - для начала вам туда

делфи 7

Вообще-то, для делфи есть целый отдельный раздел на форуме

[misher]

Положи этот код в таймер (у таймера интервал поставь 50)

procedure TForm1.Timer1Timer(Sender: TObject);

var w:Tpoint;

begin

GetCursorPos(W);

Form1.Caption:= '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')';

end;

Form1.Caption:= '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')';

выводит координаты в название формы, можно добавить Label на форму и выводить в нее:

Label1.Caption:= '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')';

[Vova777]

OnMouseMove

И выводим на форму "x" и "y" )))))

[дмитрий12123]

Спасибо misher! Все срослось