Мышь

← →
Exploit © (2005-12-17 21:53) [0]

Удалено модератором
Примечание: СПАМ

← →
Fenik © (2005-12-17 22:08) [1]

GetCursorPos вроде бы
и ScreenToClient - для преобразования координат.

← →
app © (2005-12-17 22:15) [2]

Exploit © (17.12.05 21:53)
Прошу прощения, удалил по ошибке, просьба повторить вопрос.

← →
Fenik © (2005-12-17 22:17) [3]

Exploit спрашивал, как определить локальные координаты мыши на форме.

← →
Exploit © (2005-12-17 22:37) [4]

Help, как определить локальные координаты на форме, знаю есть функция но не могу найти

← →
Exploit © (2005-12-17 22:38) [5]

Help, как определить локальные мыши координаты на форме, знаю есть функиция но найти ее не могу

← →
Fenik © (2005-12-17 22:46) [6]

Первый ответ видел?

← →
Exploit © (2005-12-17 22:52) [7]

Да видел, это вроде не то, пробывал не получается, вот тока про преобразования координат можно по подробнее

← →
Fenik © (2005-12-17 22:57) [8]

Как пробовал и что не получается? Подробно в справке.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var P: TPoint;
begin
GetCursorPos(P);
P := ScreenToClient(P);
Caption := Format("x - %d, y - %d", [P.x, P.y]);
end;

Вот это определяет глобальные координаты:
x1:=MyMouse.CursorPos.x;
y1:=MyMouse.CursorPos.y;
С помощью GetCursorPos получается тоже самое.

Ну и замечательно :)

Огромное спасибо все работает.

Мышь Найти похожие ветки