Окно без фокуса

[Олвин]

Как создать окно не имеющее фокуса, т. е. чтобы на него не устанавливался фокус при закрытии других окон и, главное, чтобы его не было в списке Alt-Tab?

[Манжосов Денис :)]

Насчёт Alt-Tab:

procedure Form1Show(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;

[mihali4]

В примере показывается создаваемая динамически форма, но фокус ввода ей не передается.
Пример:
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
Form2.Visible := FALSE;
ShowWindow(Form2.Handle, SW_SHOWNA);
end;

[Олвин]

Оно появляется без фокуса. Но в Alt-Tab всё ещё есть.

[Somebody]

Extended window style:

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

WS_EX_TOOLWINDOW
Creates a tool window; that is, a window intended to be used as a floating toolbar. A tool window has a title bar that is shorter than a normal title bar, and the window title is drawn using a smaller font. A tool window does not appear in the taskbar or in the dialog that appears when the user presses ALT+TAB. If a tool window has a system menu, its icon is not displayed on the title bar. However, you can display the system menu by right-clicking or by typing ALT+SPACE.

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

WS_EX_NOACTIVATE
Windows 2000/XP: A top-level window created with this style does not become the foreground window when the user clicks it. The system does not bring this window to the foreground when the user minimizes or closes the foreground window.
To activate the window, use the SetActiveWindow or SetForegroundWindow function.
The window does not appear on the taskbar by default. To force the window to appear on the taskbar, use the WS_EX_APPWINDOW style.