如何实现在标题双击使窗体最小化？(50分)

我想实现类似firework的工具栏，不知道如何实现？

试试下面的；可能不符合你的要求，自己修改一下吧。呵呵。
public
procedure WMNcLButtonDBLClk(var M: TMessage); message WM_NCLBUTTONDBLCLK;

procedure TForm1.WMNcLButtonDBLClk(var M: TMessage);
var
P : TPoint;
CBBtnRect : TRect;
begin
P.X := LOWORD(M.LParam) - Self.Left;
P.Y := HIWORD(M.LParam) - Self.Top;
CBBtnRect := Rect(Self.Left, Self.Top, Self.Left + Self.Width, Self.Top + Self.Height);
if not PtInRect(CBBtnRect, P) then
inherited
else
Self.WindowState := wsMinimized;
end;

好像可以了，不过，有没有办法让它不实现最大化，因为，现在双击标题栏，会最大化一下
再最小化

呵呵。自己修改一下都不干啊！帮人帮到底吧！呵呵。
var
P : TPoint;
CBBtnRect : TRect;
begin
P.X := LOWORD(M.LParam) - Self.Left;
P.Y := HIWORD(M.LParam) - Self.Top;
CBBtnRect := Rect(0, 0, Self.Width, 30);
if PtInRect(CBBtnRect, P) then
Self.WindowState := wsMinimized;
end;

接受答案了.