Фокус окна

[Лёка]

Как определить, окно имеет фокус или нет? Если окно приняло фокус делать то то, если потеряло, делать то то. Знаю что функция SetForegroundWindow(Handle) делает окно активным. Но как обратится как к своиству

[B_N]

Вызвать GetFocus() и сравнить HWND который она вернет и данного окна. Кроме того, есть еще сообщения WM_SETFOCUS и WM_KILLFOCUS.

[Лёка]

Сообщение от B_N

Вызвать GetFocus() и сравнить HWND который она вернет и данного окна. Кроме того, есть еще сообщения WM_SETFOCUS и WM_KILLFOCUS.

ээээ, а попонятней можно, а? пасиб

[B_N]

Ну куда же понятнее-то... написать два обработчика, один для WM_SETFOCUS - вызывается, когда фокус пришел, один для WM_KILLFOCUS - фокус ушел. Надеюсь, Вы имеете в виду именно фокус, активацию окна отображают WM_ACTIVATE, WM_ACTIVATEAPP, WM_NCACTIVATE.

[rpy3uH]

Сообщение от B_N

Вызвать GetFocus() и сравнить HWND который она вернет и данного окна.

пример с GetForegroundWindow:

function IsWindowInFocus(WND:HWND):boolean;
begin
  Result:=GetForegroundWindow=WND;
end;

.....//где-нибудь в коде ..........
  if IsWindowInFocus(FindWindow(nil,'Мой компьютер')) then ShowMessage('оно активно!!!');

[Лёка]

Сообщение от B_N

Ну куда же понятнее-то... написать два обработчика, один для WM_SETFOCUS - вызывается, когда фокус пришел, один для WM_KILLFOCUS - фокус ушел. Надеюсь, Вы имеете в виду именно фокус, активацию окна отображают WM_ACTIVATE, WM_ACTIVATEAPP, WM_NCACTIVATE.

А в чем разница между фокусом и активацией?

[B_N]

Окно с фокусом - это то окно, в которое идет ввод с клавиатуры, скажем один из множества Edit-контролов на форме, активное окно - это, приближенно говоря, окно с "ярким" заголовком, скажем, форма - владелец Edit-контрола, имеющего фокус. Подчеркиваю, все несколько упрощенно.

[Лёка]

ну вот значит активно не активно, плиз. пару строчек черкануть)))

[chingiz]

Скажем если Edit в фокусе то Edit.Focused = True;

[Лёка]

а вдруг не эдит, дргуие элементы? надо форму