Координаты указателя мыши в пределах Image

← →
Cooper © (2003-04-23 21:57) [0]

Подскажите, как отследить?

← →
Song © (2003-04-23 22:00) [1]

TImage.onMouseMove

Если отсчитывать от Верхнего левого угла TImage как от начало координат, то получить координаты можно так:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var IX,IY:Integer;
begin
IX:=x-Image1.Left;
IY:=y-Image1.Top;
Form1.Caption:="x="+IntToStr(IX)+"|"+"y="+IntToStr(IY);
end;

А если нужно считать координаты от левого верхнего угла формы, когда мышь проходит на TImage, то координаты считаются очень просто:

Нужно сделать два таких оператора:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var IX,IY:Integer;
begin
IX:=x+Image1.Left;
IY:=y+Image1.Top;
Form1.Caption:="X="+IntToStr(IX)+"|"+"Y="+IntToStr(IY);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:="X="+IntToStr(x)+"|"+"Y="+IntToStr(Y);
end;

Координаты указателя мыши в пределах Image Найти похожие ветки