Скачать: CL | DM;

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

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

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

---

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

TImage.onMouseMove

---

← →
Yanis ©   (2003-04-23 22:19) [2]

Если отсчитывать от Верхнего левого угла 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c