На главную

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

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

ОГЛАВЛЕНИЕ    HOME  MAIL



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

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

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;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz