Здравствуйте, Аноним, Вы писали:


A>>Ну хотя бы так создавайте
A>>

A>>s1:= TShape.Create(TfrmChild);
A>>

А>Попробую
Попробовал
Вот это вообще не компилится, если передавать указатель на эту форму то работает как и раньше.

А вот если сделать так

s1.OnMouseMove:= TFrmChild.StageMouseMove;

Пишет ошибку: несвопадения типов procedure and TMouseMoveEvent

Ну ведь как-то должно же работать?