Цитата:
|
Какая ошибка возникает? и когда, на этапе компиляции или во время работы? Set_Shape - что это за процедура?
|
пишет Undeclared identifier: "ShapeClick", во время компиляциии. set-shape - опеределяет координаты left/top клика мыши и заносит их в массив, откуда потом они и берутся для самого создания Shape.
Цитата:
|
Просто ваша процедура draw_shape описывается вне контекста TForm1 и ничего не знает о ShapeClick
|
а Вы не подскажите как правельно описать процедуру, чтобы невозникало ошибки?