隐藏标题栏

我们可以以onCreate事件做一个例子

Procedure TForm1.FormCreate (Sender : TObject);

Begin

SetWindowLong (Handle, GWL_STYLE, GetWindowLong (Handle, GWL_STYLE) AND NOT WS_CAPTION);
ClientHeight:=Height;

End;