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;