procedure TForm1.Timer1Timer(Sender: TObject); begin if GetForegroundWindow()<>Handle then Hide; end;
procedure TForm1.WMActivate(var Msg: TWMACTIVATE); begin if (Msg.Active =WA_ACTIVE) or (Msg.Active =WA_CLICKACTIVE) then begin // 处理你的代码 end else //处理你的代码 end;
begin
if GetForegroundWindow()<>Handle then Hide;
end;
begin
if (Msg.Active =WA_ACTIVE) or (Msg.Active =WA_CLICKACTIVE) then
begin
// 处理你的代码
end
else
//处理你的代码
end;