Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Вниз
Как заставить приложение что-либо делать, когда окно получает фок Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.058 c
