学步园

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;