Unit verliert den Fokus

[Gerd01]

Probiere mal dies:

Code:

Procedure Form_TOPMOST ( F : TForm );
Begin
  with F do SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
End;