Delphi 窗体显示在最前面,并获得焦点
SetForegroundWindow(GetLastActivePopup(Self.Handle));
? self.WindowState:=wsNormal;
? self.Show;