PHP DM Gate v0.9 » Как отловить активно окно или нет. <span class="vd">[Delphi]</span>

nikfel (13.12.07 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 © (13.12.07 17:38) [1]

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

<Цитата>
Compiler (13.12.07 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;

<Цитата>