Текущий архив: 2009.03.01;
Скачать: CL | DM;

Вниз

Как отловить активно окно или нет.   Найти похожие ветки 

← →
nikfel   (2007-12-13 17:28) [0]

Подскажите пожалуйста. Когда окно не активно мне надо его прятать. Без kol пользовался:
procedure TForm1.FormDeactivate(Sender: TObject);
begin
Form1.Hide;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnDeactivate:=FormDeactivate;
end;
А как на kol? Заранее спасибо.

---

← →
Elec3C ©   (2007-12-13 17:38) [1]

Проверяй Applet.Focused, а вообще была уже похожая ветка - поищи глубже.

---

← →
Compiler   (2007-12-13 23:48) [2]


function TForm1.KOLFormMessage(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
begin
result:=False;
if msg.message=WM_ACTIVATE then
case msg.wParam of
WA_CLICKACTIVE, WA_ACTIVE:;//активно
WA_INACTIVE:;//Неактивно
end;    
end;

---

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

Текущий архив: 2009.03.01;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c