Delphi 实现窗体无标题栏有边框

1.在窗体的public区写下这一句：

Procedure CreateParams(var Params :TCreateParams);override;

2然后把光标停在这一行上，按下Ctrl＋Shift＋C，在出现的代码块里写上

inherited CreateParams(Params);

if BorderStyle = bsNone then

with Params do

Style := Style or WS_THICKFRAME;

Delphi中函数的覆盖记得在函数声明后面要加上关键字override;