Деактивация окна

[dardreams]

Как деактивировать(потерять фокус) окно ?
Пример:
Я запускаю программу и через несколько секунд, активация окна автоматически теряется.

[Лукманов Александр]

Мучался, мучался. Ничего не получилось. Думаю примерно так должно быть, но не работает:

procedure TForm1.tmr1Timer(Sender: TObject);
 var k: Integer;
begin
 k:=k+1;
  if k>5 then 
   begin
    Form1.WindowHandle:=SW_SHOWNOACTIVATE;
    tmr1.Enabled:=False;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
 begin
  tmr1.Enabled:=True;
 end;
end.

А если вот это

ShowWindow(Handle, SW_SHOWNOACTIVATE)

засунешь в OnCreate, то она сразу будет не активной.

[dardreams]

В этом то и проблема, нужно чтобы через время стало неактивным

[Stilet]

А зачем? Впрочем...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
windows.SetActiveWindow(0);
Timer1.Enabled:=false;
end;

[dardreams]

Сообщение от Stilet

А зачем? Впрочем...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
windows.SetActiveWindow(0);
Timer1.Enabled:=false;
end;

Спасибо