Страница 1 из 1
Помогите с процедурами! ПЛИЗЗ!!!
Добавлено: 29 апр 2005, 13:39
kati
Люди добрые, помогите решить такую проблему! Я динамически создаю шейпчики(TShape), и для всех этих шейпчиков у меня есть процедурка OnMouseMove, которая у меня называется MyShapeMove. Как мне эту процедуру сделать для всех моих шейпов? Когда я создаю их динамически, я прописываю OnMouseMove:=MyShapeMove...Но как точно там нужно прописывать, подскажите плиз!
Добавлено: 29 апр 2005, 14:49
Игорь Акопян
дык вроде этого и достаточно...
Добавлено: 29 апр 2005, 15:18
kati
Может я неправильно описываю эту процедуру? MyShapeMove в смысле...
Я описываю так:
там, где описываю процедуру, пишу:
procedure MyShapeMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
а там, где создаю шейпчики, пишу так:
OnMouseMove:=MyShapeMove(вот тут я сомневаюсь, что писать..);
Добавлено: 29 апр 2005, 16:30
LAngel
ничего не надо. Вполне достаточно:
OnMouseMove:=MyShapeMove;
Добавлено: 29 апр 2005, 16:35
Игорь Акопян
просто
Shape1.OnMouseMove:=MyShapeMove;
Добавлено: 29 апр 2005, 17:28
kati
Блин, просто неправильно написала...Забыла добавить TForm...Спасибо