为什么ActiveControl不起作用？

ntcp

在Studio运行时，窗体的ActiveControl可以正常的感知，但是在平台上运行时，总是提示是空对象。
        原因：在Business平台上运行时，功能的窗体是放在Panel上的，此时的ActiveControl就不起作用了。
        解决方法：截获窗体上每一个控件的OnEnter事件，定义一个变量（如:CurrentControl）
TMainForm.Edit1Enter(Sender: TObject);
begin
  CurrentControl := TControl(Sender);
end;
在需要判断当前控件的地方使用CurrentControl来判断