程序内部的窗体之间切换会出发 OnActive 事件。当两个不同程序之间切换焦点时,会出发
Application 的DoDeactivate。
procedure DoDeactivate(Sender: TObject);
begin
....
end;
procedure FormCreate(Sender: TObject);
begin
...
Application.OnDeactivate := DoDeactivate;
...
end;
时间: 2024-10-06 13:08:48