Наставляем мышь на окно, и оно выносится на передний план
procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
SetForegroundWindow(WindowFromPoint(p));
end;
Статья Наставляем мышь на окно, и оно выносится на передний план раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.
