[Solved] Program losing focus action

[madref]

Is there a function in lazarus that can check if my application/program loses it focus.
A.k.a. when I switch to another program the main form must be set to fsNormal instead of fsStayOnTop

[madref]

Next time I must search this forum first before asking a question.


Found the solution here:
https://forum.lazarus.freepascal.org/index.php/topic,9237.msg99053.html#msg99053

[madref]

This is almost the solution.
But usually I have 2 forms on top.
How can I determine which form has the property fsStayOnTop so that I can reset them to that property

[balazsszekely]

Remove fsStayOnTop:

Code: Pascal  [Select][+][-]

1. var
2.   I: Integer;
3. begin
4.   for I := Screen.FormCount - 1 downto 0 do
5.   begin
6.     if (Screen.Forms[I].FormStyle = fsStayOnTop) then
7.     begin
8.       Screen.Forms[I].Tag := -1; //remember which form has fsStayOnTop
9.       Screen.Forms[I].FormStyle := fsNormal;
10.     end;
11.   end;

Restore fsStayOnTop:

Code: Pascal  [Select][+][-]

1. var
2.   I: Integer;
3. begin
4.   for I := Screen.FormCount - 1 downto 0 do
5.   begin
6.     if (Screen.Forms[I].Tag = -1) then
7.     begin
8.       Screen.Forms[I].Tag := 0;
9.       Screen.Forms[I].FormStyle := fsStayOnTop;
10.     end;
11.   end;  

[madref]

Thanks.