Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Как определить место clickа?   Найти похожие ветки 

 
Tormoz   (2005-01-14 16:23) [0]

Уважаемые Мастера!

На форме помимо прочих компонент присутсвует GroupBox1
Делаю click мышью по нему.
Как определить место clickа (X,Y) внутри этого GroupBox-а ?


 
Александр Иванов ©   (2005-01-14 16:36) [1]

Mouse.CursorPos
И Form.Left, Form.Top


 
Tormoz   (2005-01-14 16:44) [2]

To Александр Иванов

Это единственный способ?


 
begin...end ©   (2005-01-14 16:48) [3]

> Tormoz   (14.01.05 16:44) [2]

Нет, это не единственный способ. Можно сделать с помощью GetCursorPos и TGroupBox.ScreenToClient (ведь, насколько я понимаю, нужно определить координаты относительно границ groupbox"а)?


 
Tormoz   (2005-01-14 16:58) [4]

To begin...end

Правильно понимаешь!


 
begin...end ©   (2005-01-14 16:59) [5]

> [4] Tormoz   (14.01.05 16:58)

var
 Coordinates: TPoint;

begin
 Coordinates := GroupBox.ScreenToClient(Mouse.CursorPos)
end.


 
Tormoz   (2005-01-14 17:08) [6]

Спасибо!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.055 c
1-1105880027
Жыбазисная
2005-01-16 15:53
2005.01.30
Использование типов данных, объявленных в DLL


6-1100692418
Dmitry V. Averuanov
2004-11-17 14:53
2005.01.30
Изменить Gateway


1-1106032466
SveT
2005-01-18 10:14
2005.01.30
Заставка при запуске


1-1105706775
Black_Fury
2005-01-14 15:46
2005.01.30
Как работать с классом TStrings


3-1103976137
Russko
2004-12-25 15:02
2005.01.30
Удаление записей из таблицы





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