Цитата:
|
Сообщение от AND_REY
Так что ли:
Код:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Const
a = 10;
b = 10;
begin
ShowMessage('Ячейка = ['+IntToStr(X div a)+', '+IntToStr(Y div b)+']');
end; |
Спасибо за пример.
Скомпилировал, ячейки показывает, а как для определённых ячеек прописывать события, нужно, чтобы по клику на указанные ячейки перемещалось Image2(10x10).
Буду очень признателен за помощь.