Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
15-1148145082
transgression
2006-05-20 21:11
2006.07.02
Депрессивная тема


1-1148381092
dreamse
2006-05-23 14:44
2006.07.02
Передача параметров в ActiveX из HTML странички


15-1149159861
boriskb
2006-06-01 15:04
2006.07.02
5 худших продуктов в IT за все время.


15-1149758569
Der Nechk@ssoff
2006-06-08 13:22
2006.07.02
Умер Арнольд Ньюман


1-1148499979
mikl000
2006-05-24 23:46
2006.07.02
буквенно-цифровые коды





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский