隐藏任务栏中的表单也隐藏了标题

Question

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

我有一个表单，用ShowModal（）打开一个新表单 创建此新表单时，FormCreate包含以下代码：

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

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