Обработчик события OnMouseDown в созданого програмно компонента TShape?
Люди подскажыте как правильно написать обработчик события OnMouseDown для програмно созданого компонента TShape?
Пример кода как я создаю компонент!
Shape:TShape;
Shape:=TShape.Create(Form1);
Shape.Parent:=Form1;
Теперь надо написать
Shape.onmousedown:=mymousedown и этот mymousedown надо как то обявить, а как ? Пробовал некоторые варианты выдает ошыбку. Черезх гугл так и нешол решения. Может кто знает помогите! Зарание благодарен!
|