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

Вниз

Помогите создать класс, принимающий сообщения   Найти похожие ветки 

 
Holy   (2002-11-11 11:42) [0]

Уважаемые Мастера! Хоть что-то подобное уже и спрашивалось, но ответа я там не нашел :). Нужно написать что-то вроде векторного редактора. Хотелось бы не отслеживать самому над каким объектом прошла мышь, а чтоб они сами о этом говорили. Т.е. нужен класс, который умеет принимать сообщения. Я и в исходниках смотрел, но к сожалению опыта маловато - не разобрался... Дайте дельный совет. Заранее спасибо.


 
Skier   (2002-11-11 11:46) [1]

>Holy

> . Хотелось бы не отслеживать самому над каким объектом прошла
> мышь, а чтоб они сами о этом говорили.

обрабатывай сообщения
CM_MOUSEENTER и CM_MOUSELEAVE


 
Marcus   (2002-11-11 11:51) [2]

Проблема в том, что мышинные сообщения (как и любые другие) получают только окна, т.е. объекты либо унаследованные от TWinControl (у них есть Handle типа HWND) либо которые сами создают внутри себя окно. Иначе придется отслеживать сообщения от всей рабочей области рисования, а затем по координатам смотреть, над каким объектом мышь. На мой взгляд второй вариант хоть и более сложный, но менее ресурсоемкий, т.к. WinControl занимает памяти больше, чем просто наследник TObject или даже TComponent

type TGraphicObject = class(TWinControl)
public
...
procedure WMMouseMove(var Message: TMessage); message WM_MOUSEMOVE;
...
end;

Аналогично с другими сообщениями



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

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

Наверх





Память: 0.45 MB
Время: 0.007 c
1-69247
123000
2002-11-11 18:18
2002.11.21
Блокировка файла


1-69287
Explorer
2002-11-12 08:47
2002.11.21
EhLib для Д7


3-69140
БОБ
2002-10-31 09:29
2002.11.21
SELECT...


3-69108
Бульбаш
2002-10-22 13:07
2002.11.21
Может не в тему, но все же...


1-69386
maxim2
2002-11-10 13:48
2002.11.21
Подскажите компонент типа Grid в котором можно устанавливать...





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