Delphi для всех

Активизировать не активное окно

Для того, чтобы окно появилось поверх других и стало бы активным нужно использовать функцию SETForegroundWindow. Она работает даже в том случае, если активно другое приложение. На форму необходимо кинуть компонент Timer находится он на вкладке System.

Эта программа активизирует то окно, над которым находится мышь.

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
SetForegroundWindow(WindowFromPoint(p));
end;

Хостинг от uCoz