Как определить что мое окно наверху?

← →
leonidus (2008-06-01 12:23) [0]

Необходимо понять, является ли окно моей программы активным в данный момент, т.е. работает ли с ним пользователь или оно перекрыто другими окнами, как это сделать?

← →
engine © (2008-06-01 12:29) [1]

procedure TForm1.FormActivate(Sender: TObject); begin ShowMessage("Пользователь работает с программой"); end;

← →
{RASkov} © (2008-06-01 13:22) [2]

GetActiveWindow сравнивай с хэндлом своего окна. Равно - значит твое активно, нет... ну на нет и суда нет...

← →
{RASkov} © (2008-06-01 13:24) [3]

> ShowMessage("Пользователь работает с программой");

Не факт.... ни [1] ни [2] не факт :)

← →
leonidus (2008-06-01 13:27) [4]

engine так не получается, FormActivate срабатывает только один раз при старте программы, и даже если я разворачиваю поверх моего окна окно другой программы и затем опять перехожу в окно моей, то FormActivate все равно не генерируется.

← →
{RASkov} © (2008-06-01 13:40) [5]

> [4] leonidus (01.06.08 13:27)
> то FormActivate все равно не генерируется.

Оно генерируется только в пределах текущего приложения....
Тебе нужно смотреть на свойства OnActivate и OnDeactivate у TApplication"а...

> Тебе нужно смотреть на свойства OnActivate и OnDeactivate
> у TApplication"а...

Стоп... мыж в винапи :) См [2]

http://delphiworld.narod.ru/base/wm_activate.html

The GetForegroundWindow function returns the handle of the foreground window (the window with which the user is currently working).

Как определить что мое окно наверху? Найти похожие ветки