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

← →
Марина (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;

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

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

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

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

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