有关焦点的问题（送分）

Question

Image1不能得到，如果你想让它的mousemove等事件激发，让它的父亲得到就可以了。

Answer 1

1.在form1上执行form2.showmodal
2.然后在form2执行close后
然后重复第一步
结果form2上的焦点就转移了
我不知道是怎么回事？

Answer 2

光标总是停在form上次关闭前时最后的位置

Answer 3

1、TImage不是从TWinControl继承，所以不能获得焦点。
2、可以很简单的设置你想要设置焦点的控件Default属性为true.—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 4

1.因为TImage是从TGraphic继承下来的，本来就不处理焦点事件。想加就自己处理windows消息罢；
2.form的OnClose事件中的Action设为caFree才能释放窗口资源。
否则默认是caHide，只是隐藏窗口，当然再显示时还是上次的焦点了。