Помогите с процедурами! ПЛИЗЗ!!!

[kati]

Люди добрые, помогите решить такую проблему! Я динамически создаю шейпчики(TShape), и для всех этих шейпчиков у меня есть процедурка OnMouseMove, которая у меня называется MyShapeMove. Как мне эту процедуру сделать для всех моих шейпов? Когда я создаю их динамически, я прописываю OnMouseMove:=MyShapeMove...Но как точно там нужно прописывать, подскажите плиз!

[Игорь Акопян]

дык вроде этого и достаточно...

[kati]

Может я неправильно описываю эту процедуру? MyShapeMove в смысле...
Я описываю так:
там, где описываю процедуру, пишу:
procedure MyShapeMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
а там, где создаю шейпчики, пишу так:
OnMouseMove:=MyShapeMove(вот тут я сомневаюсь, что писать..);

[LAngel]

ничего не надо. Вполне достаточно:
OnMouseMove:=MyShapeMove;

[Игорь Акопян]

просто
Shape1.OnMouseMove:=MyShapeMove;

[kati]

Блин, просто неправильно написала...Забыла добавить TForm...Спасибо