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

ImageXClick - глюк с координатами   Найти похожие ветки 

← →
Headout   (2004-02-03 12:44) [0]

Проблема такова: в процедуре Form1.Image1Click(Sender: TObject) нет координат курсора, а, если использовать GetCursorPos(P) или TMouse.CursorPos.Y, то почему-то координата Y при нажатии мышкой получается ниже ровно на высоту заголовка. Если поставить BorderStyle:=bsNone то координата Y получается нормальной, а если BorderStyle:=bsSizeable, то Y вниз сползает. Чё делать?
Сам код:
procedure TWind.Image1Click(Sender: TObject);
Var
x,y: integer;
p: TPoint;
begin
GetCursorPos(P);
Canvas.LineTo(p.X-(wind.left),p.y-(wind.top));
end;

---

← →
Serge ©   (2004-02-03 12:55) [1]

Дык
"The GetCursorPos function retrieves the cursor"s position, in screen coordinates."

---

← →
Serge ©   (2004-02-03 12:57) [2]

OnMouseDown не подойдет ?

---

← →
Headout   (2004-02-03 13:00) [3]

Дык, понятно, просто рисунок на форме используется как фон. А при нажатии на него (этот фон) нужно перерисовать прямоугольник с координатами (x-5,y-5,x+5,y+5). Тут прикол и происходит - прямоугольник рисуется точек на 30 ниже и на 2 правее. Вот если бы программно узнать высоту заголовка окна, было бы хорошо. Ну или сделать че-нибудь типа Form1.Image1Click(X,Y: integer; Sender: TObject).

---

← →
Headout   (2004-02-03 13:03) [4]

OnMouseDown - не совсем, а вот OnMouseUp - то что надо, извиняюсь за торможение.

---

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

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



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