怎么去掉窗口的标题栏？

Question

怎么去掉窗口的标题栏？怎么去掉窗口的标题栏？

Answer 1

设置form的BorderStyle属性为：bsNone

Answer 2

可是这样一样，这个窗口最大化以后就把windos下面的工具栏给挡住了，我不想这样

Answer 3

这个方法可以保留边框  private
    procedure WndProc(var msg : TMessage);override;
  end;var
  Form1: TForm1;implementation
{$R *.DFM}
procedure TForm1.WndProc(var msg : TMessage);
begin
  if msg.Msg = WM_NCLBUTTONDOWN then
  begin
    if msg.WParam <> HTCLOSE then
    begin
      exit;
    end;
  end;
  inherited WndProc(msg);
end;

Answer 4

jinjazz(近身剪（N-P攻略）)  你的方法怎么用啊？

Answer 5

不好意思，写错了procedure TForm1.FormCreate(Sender: TObject);
begin
  borderstyle:=bsSizeable;
  setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
  clientheight:=height;
end;

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
begin
  borderstyle:=bsnone;
  self.Left:= 0;
  self.Top:= 0;
  self.Width:= screen.Width;
  self.Height:= screen.Height - 25;
end;

Answer 7

jinjazz(近身剪（N-P攻略）) procedure TForm1.FormCreate(Sender: TObject);
begin
  borderstyle:=bsSizeable;
  setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
  clientheight:=height;
end;
我初始化的时候就把窗口最大化，用了你这个方法，可还是把工具栏挡住 了