|
#1
|
|||
|
|||
Shape
проблема вот в чем: я динамически создаю 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; |
#2
|
||||
|
||||
Какая ошибка возникает? и когда, на этапе компиляции или во время работы? Set_Shape - что это за процедура?
jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
||||
|
||||
Просто ваша процедура draw_shape описывается вне контекста TForm1 и ничего не знает о ShapeClick
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
Цитата:
пишет Undeclared identifier: "ShapeClick", во время компиляциии. set-shape - опеределяет координаты left/top клика мыши и заносит их в массив, откуда потом они и берутся для самого создания Shape. Цитата:
|
#5
|
||||
|
||||
Страдалецъ прав. Сделайте процедуру методом формы.
Код:
type TForm1 = class(TForm) ... procedure Draw_Shape; ... end; ... procedure TForm1.Draw_Shape; begin // код процедуры end; jmp $ ; Happy End! The Cake Is A Lie. |
#6
|
|||
|
|||
Благодарю, Вы мне очень помогли!
|