Мышка над 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)
Точно, благодарю!!! что то до самого не дошло, строю тут огород :)

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