delphi 焦点定位

active control 是当前窗口获得焦点的控件。

WM_NEXTDLGCTL是一个消息。

perform(WM_NEXTDLGCTL,0,0)是把当前焦点移到下一个控件。

if not (active control is TDBGrid) then

窗口具有active control 属性。

也可以通过setFocus设置焦点。