[DELPHI] Determinare se un'applicazione ha il focus

[denis76]

Conoscete un modo per sapere (meglio ottenere un evento) quando il programma ha il focus o meno rispetto agli altri programmi aperti?

[denis76]

  protected
    procedure WndProc(var Message: TMessage); override;
    ...

procedure TMainForm.WndProc(var Message: TMessage);
begin
  begin
    case Message.Msg of
      WM_ACTIVATEAPP: begin
        if Message.WParam= 1 then ... else ...;
      end;
    end;
  end;
  inherited WndProc(Message);
end;