小编ReA*_*ReA的帖子

我正在尝试删除表单的标题栏,同时保持边框具有可调整大小的形式.我设置BorderStyle到bsNone并重写CreateParams程序:

procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or  WS_BORDER or WS_THICKFRAME;
end;

我面临的唯一问题是表格上边缘的白条(在胜利10中):

我怎么能摆脱这个白色的酒吧？