Главная страница
    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.064 c
2-1150208248
VitV
2006-06-13 18:17
2006.07.02
DBgrid нижний скролбар.


3-1146636466
supervk
2006-05-03 10:07
2006.07.02
Установка ISOLATION LEVEL по умолчанию для MSSQL 2000.


1-1148027278
Dr.TurboBoa
2006-05-19 12:27
2006.07.02
Как работать с property типа TStrings


15-1149753417
ProScan
2006-06-08 11:56
2006.07.02
Как посмотреть всё установленное оборудование в XP SP2


15-1149329379
DirectX
2006-06-03 14:09
2006.07.02
последний на сегодня directX





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский