[Hastle31]

проблема вот в чем: я динамически создаю Shape. мне необходимо создать процедуры ну что-то в роде shape.onclick. Много гуглил по данному вопросу, нашлось одно решение, но не без косяков. Shape создается при клике на Image. НИже основной код создания. В данном случае вылетает ошибка при вызове mas[kol_shape].OnMouseUp := ShapeClick; Если же поставить эту строку после вызова процедуры draw_shape в image1click то после создания Shape прцоедура выполнятсья будет, но есть один нюанс: у меня часть шейпов создаются "сами", загружая соответственные координаты left/top из БД. Так вот, при клике на Shape загруженный из БД реакции нет, а на поставленный "собственноручно" есть.
Есть у кого-нибудь идеи по решении данной проблемы?

Код:

mas: array of TShape;

procedure TForm1.ShapeClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 begin
 if sender is TShape then
 showmessage('test');
 end;

*****
// создание Shape
procedure draw_shape;
begin
  setlength(mas,kol_shape+1);

  mas[kol_shape] := TShape.Create(Form1);
  mas[kol_shape].Parent := Form1;
  mas[kol_shape].Left :=shape_setting[kol_shape].left;
  mas[kol_shape].Top := shape_setting[kol_shape].top;
  mas[kol_shape].Width := 10;
  mas[kol_shape].Height := 10;
  mas[kol_shape].Shape := stCircle;
  //mas[kol_shape].OnMouseUp := ShapeClick; <-error
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 set_shape;
 draw_shape;
 mas[kol_shape].OnMouseUp := ShapeClick;
 form2.show;
end;

[Bargest]

Какая ошибка возникает? и когда, на этапе компиляции или во время работы? Set_Shape - что это за процедура?

[Страдалецъ]

Просто ваша процедура draw_shape описывается вне контекста TForm1 и ничего не знает о ShapeClick

[Hastle31]

Какая ошибка возникает? и когда, на этапе компиляции или во время работы? Set_Shape - что это за процедура?

пишет Undeclared identifier: "ShapeClick", во время компиляциии. set-shape - опеределяет координаты left/top клика мыши и заносит их в массив, откуда потом они и берутся для самого создания Shape.

Просто ваша процедура draw_shape описывается вне контекста TForm1 и ничего не знает о ShapeClick

а Вы не подскажите как правельно описать процедуру, чтобы невозникало ошибки?

[Bargest]

Страдалецъ прав. Сделайте процедуру методом формы.

Код:

type
   TForm1 = class(TForm)
   ...
   procedure Draw_Shape;
   ...
 end;
...
procedure TForm1.Draw_Shape;
begin
 // код процедуры
end;

[Hastle31]

Благодарю, Вы мне очень помогли!