Delphi可调整大小的窗体完全删除标题栏

在Delphi中，如果你想要创建一个可调整大小的窗体并且完全删除标题栏，你可以通过设置窗体的BorderStyle属性来实现。

以下是步骤：

在Delphi中打开你的窗体。
在对象检查器中，找到BorderStyle属性，并将其设置为bsNone。这将删除窗体的标题栏。

然而，这样做会导致你无法通过鼠标拖动边框来调整窗体的大小。为了解决这个问题，你需要编写一些额外的代码来处理鼠标事件，使得用户可以通过拖动窗体的边缘来调整其大小。

以下是一个简单的例子，展示了如何处理WM_NCHITTEST消息来实现这个功能：

type
  TForm1 = class(TForm)
  private
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
  end;

...

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
var
  pt: TPoint;
begin
  inherited;
  pt := ScreenToClient(Msg.Pos);
  if pt.X < 5 then
    if pt.Y < 5 then
      Msg.Result := HTTOPLEFT
    else if pt.Y > ClientHeight - 5 then
      Msg.Result := HTBOTTOMLEFT
    else
      Msg.Result := HTLEFT
  else if pt.X > ClientWidth - 5 then
    if pt.Y < 5 then
      Msg.Result := HTTOPRIGHT
    else if pt.Y > ClientHeight - 5 then
      Msg.Result := HTBOTTOMRIGHT
    else
      Msg.Result := HTRIGHT
  else if pt.Y < 5 then
    Msg.Result := HTTOP
  else if pt.Y > ClientHeight - 5 then
    Msg.Result := HTBOTTOM;
end;

这段代码会检查鼠标的位置，如果鼠标在窗体的边缘，就返回相应的值，使得用户可以通过拖动边缘来调整窗体的大小。你可能需要根据你的需求来调整这段代码。