Форум: "Основная";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];

Вниз

Мышка над TImage, определить координаты над TImage   Найти похожие ветки 

← →
Layner ©   (2007-05-03 11:45) [0]

Есть способ, но он не точен:
StatusBar1.Panels[0].Text:=IntToStr(Mouse.CursorPos.X-fmain.Left-Image1.Left)+"*"+IntToStr(Mouse.CursorPos.Y-fmain.Top-Image1.Top);

Не учитывается у формы Главное меню, полоса окна... Подскажите, как правильно определить координаты мышки над TImage. Т.е. левый верхний пиксель имеет координаты 0/0

---

← →
PZ   (2007-05-03 11:54) [1]

А такой способ не устаивает ?

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


---

← →
Virgo_Style ©   (2007-05-03 12:37) [2]

.ScreenToClient ?

---

← →
Layner ©   (2007-05-03 13:06) [3]

PZ   (03.05.07 11:54)
Точно, благодарю!!! что то до самого не дошло, строю тут огород :)

---

← →
ANB ©   (2007-05-03 13:15) [4]

> Layner ©   (03.05.07 13:06) [3]

Только учти, что событие MouseMove срабатывает не для каждого пикселя, а кусочками.

---

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

Форум: "Основная";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];

Наверх

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