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;

阅读更多
文章标签: delphi c
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭