[realieves]

Пишу простой редактор ER-диаграмм. Столкнулся с проблемой определения графических объектов по клику мышкой. Т.е. при клике на сущность - выделятся сущность и т.п.. Нужна помощь в алгоритме определения места клика мыши.

Рисуется все на canvas.

[cotseec]

GetCursorPos (1-ая ссылка множество вариантов) + ScreenToClient определяем куда кликнули, а дальше - в зависимости как организовано рисование - определяем куда попали и что выделить

[realieves]

Сообщение от cotseec

GetCursorPos (1-ая ссылка множество вариантов) + ScreenToClient определяем куда кликнули, а дальше - в зависимости как организовано рисование - определяем куда попали и что выделить

Спасибо! Но всё же нужен алгоритм - именно с ним и сложности..

[NumLock]

в событии OnMouseDown координаты мыши уже передаются:

Код:

TMouseEvent = procedure(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer) of object;

т.е. алгоритм такой:
-создать обработчик события OnMouseDown
-взять координаты мыши X, Y
-все - место клика мыши известно

[Pyro]

можно порядковый номер объекта кодировать в цвет при рисовании
brush.color := clGreen + id
...
id := Pixels[x,y] - clGreen

[stanilar]

Почему нужно именно рисовать на канве? Может воспользоваться набором стандартных компонент типа Shape?

[realieves]

Сообщение от stanilar

Почему нужно именно рисовать на канве? Может воспользоваться набором стандартных компонент типа Shape?

Потому что уже она во всей программе используется