[Hastle31]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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

[Hastle31]

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