Главная страница
    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.46 MB
Время: 1.043 c
15-1149648990
pargo
2006-06-07 06:56
2006.07.02
Доигрался с AppInit_DLLs :((


3-1147150289
Sphinx
2006-05-09 08:51
2006.07.02
ADOConnect := TADOConnection.Create(Application) -> EOleSysError


2-1150284859
novill
2006-06-14 15:34
2006.07.02
Какая функция возворащает описание ошибки по коду GetLastError?


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