procedure TForm1.FormCreate(Sender: TObject);begin application.OnActivate := ApplicationActivate;end;/// 自定义事件处理过程procedure TForm1.ApplicationActivate(Sender: TObject);beginend;
