Цитата:
|
Сообщение от 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;