delphi - 从任务栏隐藏表单也会隐藏标题

Question

我正在为 Windows 7 64 位在 Delphi 2013 中编写应用程序。

我有一个表单，它使用 ShowModal() 打开一个新表单。
创建这个新表单时，FormCreate 包含以下代码：

SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
BorderStyle := bsSingle;

我对这段代码的问题是标题也消失了。
如何在不隐藏表单标题的情况下从任务栏中隐藏新表单？