Скачать: CL | DM;

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

← →
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;

---

← →
ssk ©   (2004-05-11 16:11) [10]

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

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;

---

← →
WebErr ©   (2004-05-11 16:14) [11]

Вот он 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 в случае, когда переключается управление с другого приложения.

---

← →
prockrut ©   (2004-05-11 16:14) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c