| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Координаты курсора над объектом?

Марина ©   (2006-06-14 09:28:00) 

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;

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

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

---

Megabyte   (2006-06-14 11:08:00) [1]

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

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

---

Сергей М.   (2006-06-14 10:00:00) [2]

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


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

---

Марина   (2006-06-14 09:55:00) [3]

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


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



---

Марина   (2006-06-14 09:54:00) [4]

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

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

---

Сергей М.   (2006-06-14 09:54:00) [5]

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

---

Марина   (2006-06-14 09:47:00) [6]

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

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

---

Сергей М.   (2006-06-14 09:31:00) [7]

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


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

---

Наверх