aufs Event "OnSetForeGroundWindow" reagieren

[Nogge]

Hallo Community,
Ich möchte gern das Blinken in der Taskleiste und in der Caption eines best Fensters mithilfe der Procedure FlashWindowEx beenden, wenn dieses best Fenster in den Vordergrund gebracht wird. Da ich es nicht geschafft habe, mit dem Flag FLASHW_TIMERNOFG unendlich oft das Blinken zu erhalten, bis das best Fenster in den Vordergrund gerückt wird, suche ich nun eine Message, die NUR dann bei einer Form ausgelöst wird, wenn diese in den Vordergrund gebracht wird.

Help me plz^^

[Nogge]

So, ich denke, ich habe jetzt die Message gefunden, die ich benötige. Habe ne Menge Messages aus der Windows.pas ausprobiert und bei dieser hier bin ich stehen geblieben:

Delphi-Quellcode:

procedure TF_Main.proc_WM_ACTIVATEAPP(var Msg: TWMActivateApp);
begin
  inherited;
  if Msg.Active then
    ShowMessage('ForeGround!');
end;