[Ankor]

Здравствуйте.
У меня такой вопрос:
Нужно наложить на Image сетку ,(например 20х20 ячеек), и при клике по разным ячейкам должны происходить разные события. При этом сетка не должна быть видна, только при программировании для удобства.

Подскажите пожалуйста, как это можно реализовать, очень бы хотелось с примером кода, а то я в программировании еще не силён.

Очень надеюсь на Вашу помощь.

[NumLock]

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

по X, Y: Integer вычисляй ячейку в воображаемой сетке.

[Ankor]

Спасибо, а можете привести небольшой примерчик, если не трудно.

[DenNik]

Спасибо, а можете привести небольшой примерчик, если не трудно.

я тебе информацию к размышлению дам (см. картинку). Точка - это где щелчок произошел. Известны размеры воображаемой ячейки. Как вычислить ячейку, в которой произошел щелчок?
http://www.delphisources.ru/forum/at...d=131375652 5

[Ankor]

Мало что понятно из вышесказанного, вопрос остаётся нерешенным, может кто-нибудь может подробно объяснить на нормальном примере?

[Pilot_Red]

не хош думать, сделай решение в лоб, накидай на форму 100 Image(10х10)
И кликай по ним сколько душе угордно

[M.A.D.M.A.N.]

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

не хош думать, сделай решение в лоб, накидай на форму 100 Image(10х10)
И кликай по ним сколько душе угордно

Возникнет второй вопрос, как одно изображение разбить на 100 кусочков.

По теме:
Размеры твоего имиджа тебе известны, делишь ширину и высоту на столько частей, на сколько надо (в твоем случае 10).
image1.width div 10, получишь размер клеточки. Далее думаем сами.

[Pilot_Red]

Сообщение от M.A.D.M.A.N.

Возникнет второй вопрос, как одно изображение разбить на 100 кусочков.

Ну... я думаю автор темы знаком с таким замечательным продуктом, как MsPaint.

[Ankor]

Image (1000х600) надо разбить на 6000 кусочков (10х10).
Так как я не профи как вы в делфи, вот и просил привести наглядный рабочий пример на нескольких ячейках хотябы, чтобы по аналогии я уже смог сделать полностью.

[Pilot_Red]

А какие события должны происходить при нажатии на ячейку??

[Ankor]

По клику на указанные ячейки должно перемещаться Image2(10x10).

[AND_REY]

Так что ли:

Код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Const
 a = 20;
 b = 20;
begin
 ShowMessage('Ячейка = ['+IntToStr(X div a)+', '+IntToStr(Y div b)+']');
end;

[Ankor]

Сообщение от 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).

Буду очень признателен за помощь.

[M.A.D.M.A.N.]

Можно в case сделать.

Код:

case X div a of
  0: showmessage('ячейка 1 по x');
  1: showmessage('ячейка 2 по x');
...
end;

[Ankor]

Сообщение от M.A.D.M.A.N.

Можно в case сделать.

Код:

case X div a of
  0: showmessage('ячейка 1 по x');
  1: showmessage('ячейка 2 по x');
...
end;

Спасибо большое, а как в этот код еще по оси Y добавить, а то у меня в коде при клике все ячейки по оси Y срабатывают?

Код:

Код:

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)+']');

case X div a of

0: begin Panel1.visible:=True; Panel1.left:=X;Panel1.Top:=Y;end;
1: begin Panel1.visible:=True; Panel1.left:=X;Panel1.Top:=Y;end;
2: begin Panel1.visible:=True; Panel1.left:=X;Panel1.Top:=Y;end;

end;
end;