派生类中找不到parent?

Question

TMyClass:=class(TGraphicControl)//类定义
 
data1 := TMyClass.Create(handle, self);//类实例
data1.Parent := form1;//？还有什么方法
因为派生类没有和parent完全关联 ，类成员无法感知parent的原点是否变化，
甚至根本无法操作：因为不知道parent是谁

Answer 1

比如这个消息吧  procedure WMMouseWheel(var msg: TWMMOUSEWHEEL); message WM_MOUSEWHEEL;全屏窗口的时候是正常的，如果窗口位置或大小变化了，响应的消息，仍然按窗口原点在屏幕左上角来计算，
也就是说，响应的范围是 窗口大小的矩形（从左上角开始）与窗口所在位置的矩形的矩形交集相当于把窗口移动到左上角了...