Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
ВнизКоординаты курсора над объектом? Найти похожие ветки
← →
Марина (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c