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

Координаты курсора над объектом?   Найти похожие ветки 

← →
Марина   (2006-06-14 09:28) [0]

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
p : TPoint;
begin
GetCursorPos(p);

form1.Caption := inttostr(p.X) +","+ inttostr(p.y);
end;

Есть картинка, мне надо сделать так, чтобы показывало х,у того места картинки, над которым в данный момент находится курсор мыши.

А у меня получается только чтобы показывало х,у экрана...
Помогите пожалуйста...

---

← →
Сергей М. ©   (2006-06-14 09:31) [1]

> procedure TForm1.Image1MouseMove(Sender: TObject; Shift:
>  TShiftState; X, Y: Integer);


Как думаешь, зачем переданы параметры X,Y в твой обработчик ?

---

← →
Марина   (2006-06-14 09:47) [2]

>Как думаешь, зачем переданы параметры X,Y в твой обработчик ?

объектом имидж.

---

← →
Марина   (2006-06-14 09:54) [3]

блин) прочитала не так... прочитала как : ЧЕМ переданы...

Зачем? Чтобы узнать х,у объекта - вот зачем помоему. А вот КАК это сделать я не знаю...

---

← →
Сергей М. ©   (2006-06-14 09:54) [4]

Да не чем, а зачем ?)

---

← →
Марина   (2006-06-14 09:55) [5]

блин, я в края отупела))))))


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



---

← →
Сергей М. ©   (2006-06-14 10:00) [6]

> в края отупела


Попробуй перекрасить волосы)

---

← →
Megabyte ©   (2006-06-14 11:08) [7]

> объектом имидж.

Прикольный объект. %)

---

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

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



Память: 0.46 MB
Время: 0.026 c