如何将窗体上面的蓝色条不显示???

Question

Form 的BorderStyle设置为bsNone

Answer 1

对啊，对啊！
这样要求你写button来关闭这个窗口，或者运行后按alt+f4了

Answer 2

genphone_ru(票票)：说的对。
不过还有一种方法：
  public
    procedure CreateParams(var Params:TCreateParams);override;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.CreateParams(var Params:TCreateParams);
begin
 inherited CreateParams(Params);
 Params.Style:=WS_THICKFRAME OR WS_POPUP OR WS_BORDER;
end;

Answer 3

我已经将form的borderstyle设置为bsnone了,但是还是没有效果呀我的这个窗口的formstyle是fsMDIChild
是不是跟这个有关系?

Answer 4

begin
inherited createparams(params);
  with params do
  begin
    style:=style and (not ws_caption);
    style:=style or ws_popup or ws_thickframe or ws_clipchildren;
  end;
end;