程序内部的窗体之间切换会出发 OnActive 事件。当两个不同程序之间切换焦点时，会出发
Application 的DoDeactivate。

procedure DoDeactivate(Sender: TObject);
begin
....
end;

procedure FormCreate(Sender: TObject);
begin
...
Application.OnDeactivate := DoDeactivate;
...
end;

窗体激活事件