[poli-smen]

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

Имеется еще один вопросик: возможно ли при таком построении получить, в переменную, цифру из квадрата, при клике ЛКМ по нему и если возможно то с помощью каких процедур или событий?

Да, возможно. У TImage есть событие OnMouseDown срабатывающее на нажатие кнопки мышки и событие OnMouseUp срабатывающее на отпускание кнопки мышки - просто вешаешь на нужное событие нужный обработчик события.

В примере обрабатывается событие OnMouseUp (отпускание кнопки мышки):

Код:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: Integer;
  R: TRect;
  Pt: TPoint;
begin
  if Button = mbLeft then
  begin
    Pt := Point(X, Y);
    for i := 0 to 19 do
    begin
      X := 3 + 30 * (i mod 2) + 76 * (i div 4) - 3 * (i div 8);
      Y := 4 + 30 * ((i div 2) mod 2);
      R := Rect(X, Y, X + 20, Y + 20);
      if PtInRect(R, Pt) then
      begin
        ShowMessageFmt('Кликнули по числу %d', [i + 1]);
        Exit;
      end;
    end;
  end;
end;