Как заставить приложение что-либо делать, когда окно получает фок

← →
prockrut © (2004-05-11 15:40) [0]

Как заставить приложение что-либо делать, когда окно получает фокус?

← →
WebErr © (2004-05-11 15:42) [1]

Обрабатывать OnEnter

← →
WebErr © (2004-05-11 15:42) [2]

Обрабатывать OnEnter

← →
WebErr © (2004-05-11 15:44) [3]

Обрабатывать OnEnter, если это окно - контрол или OnActivate если всё-таки форма.

← →
prockrut © (2004-05-11 15:47) [4]

окно - это форма.
OnActivate - проходит только один раз, при создании окна!

← →
prockrut © (2004-05-11 15:48) [5]

WM_SETFOCUS - ваще не отрабатывается!

← →
WebErr © (2004-05-11 15:50) [6]

> OnActivate - проходит только один раз, при создании окна!

Ну вот ещё! Сейчас ведь проверю...

← →
webpauk (2004-05-11 16:03) [7]

procedure WM_Act(var Msg: TMessage); Message WM_SETFOCUS; procedure WM_Act(var Msg: TMessage); begin inherited; Caption:=DateTimeToStr(Now) end;

← →
prockrut © (2004-05-11 16:07) [8]

2 webpauk

c WM_SETFOCUS делал - те же яй..., все равно не работает!!!

← →
webpauk (2004-05-11 16:11) [9]

procedure WM_Act(var Msg: TMessage); Message WM_SETFOCUS; procedure WM_Act(var Msg: TMessage); begin inherited; Caption:=DateTimeToStr(Now) end;

Событие активации деактивации окна

type
//...
private
{ Private declarations }
procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
end;

implementation

//...

procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
inherited;
if M.Active then
caption:="Form active"
else caption:="Form not active" ;
end;

Вот он help Великий и Могучий:

Occurs when the form becomes active.

property OnActivate: TNotifyEvent;

Description

Use OnActivate to perform special processing when the form receives focus. A form becomes active when focus is transferred to it (when the user clicks on the form, for example).

Note:
The OnActivate event of the application (TApplication), not the form, occurs when Windows switches control from another application.

То есть надо ещё ловить OnActivate у Application в случае, когда переключается управление с другого приложения.

Всем Спасибо!
Особенно ssk!!!
Заработало!!!

Как заставить приложение что-либо делать, когда окно получает фок Найти похожие ветки