Delphi可调整大小的对话框窗体？

如何使用BorderStyle

bsDialog

制作表单（ShowModal）。但是一个仍然可以调整大小并有关闭按钮（没有图标，最小化，最大化）

---

我不需要它来显示大小夹点。

将

边框样式设置为
bsSizeToolWin
以下是我的解决方案，似乎可以：

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  protected
    procedure CreateWnd; override;
    procedure CreateParams(var Params: TCreateParams); override;
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
  BorderIcons := [biSystemMenu];
  BorderStyle := bsSizeable;
  AutoScroll := False;
end;

procedure TForm2.CreateWnd;
begin
  inherited;
  SendMessage(Handle, WM_SETICON, 1, 0);
end;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;
end;

在我看来，这不能用
bsDialog
来完成，但是上面的感觉和看起来就像一个“
bsDialog
”可以调整大小。
非常棒的解决方案，这已经困扰了我很多年了。这使得工具窗口的标题栏变小了，而不是一个普通的对话框。