Тема: Наложение сетки на Image
Показать сообщение отдельно
  #2  
Старый 19.08.2011, 14:48
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию
Цитата:
TMouseEvent = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
TImage OnMouseDown: TMouseEvent
по X, Y: Integer вычисляй ячейку в воображаемой сетке.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием