Наставляем мышь на окно, и оно выносится на передний план

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

procedure TForm1.Timer1Timer(Sender: TObject);

var

p: TPoint;

begin

GetCursorPos(p);

SetForegroundWindow(WindowFromPoint(p));

end;

{/codecitation}

Добавить комментарий