各位大虾救救我吧！

Question

小弟想创建一个无标题栏窗体，作成之后却发现，窗体外有一个比窗体大的虚框，不知如何将其去掉，甚是苦恼。

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);
  Height := ClientHeight;
end;

Answer 2

不懂你的意思啊
在borderStyle中设置bsNone不就行了啊

Answer 3

对，将窗体的borderStyle属性中设置成bsNone应该就没问题了。