程序内部的窗体之间切换会出发 OnActive 事件。当两个不同程序之间切换焦点时，会出发
Application 的DoDeactivate。
procedure DoDeactivate(Sender: TObject);
begin
....
end;
procedure FormCreate(Sender: TObject);
begin
...
Application.OnDeactivate := DoDeactivate;
...
end;
原文：http://www.cnblogs.com/spiritofcloud/p/3978310.html