怎样去掉子窗口的Title栏?

怎样去掉子窗口的Title栏?

解决方案 »

  1.   

    重载Form的 CreateParams（）过程
    procedure CreateParams(var Params: TCreateParams); override;
    begin
     inherited;
     Params.style = Params.style xor WS_CAPTION
    end;
      

  2.   

    SetWindowLong和重载CreateParams
    borderStyle改成bcNone不行么？
      

  3.   

    Please give me a example.  Help me!
      

  4.   

    a Good website
    www.programfan.net
      

  5.   

    出國留學
    http://www.manfen.net/
      

  6.   

    把borderStyle属性改成bsNone
    标题栏没有，那可是连最大化、最小化、关闭按钮都没有了的哦，那做多文档窗口有何用？
      

  7.   

    我的绝对能行:
    procedure CreateParams(var Params: TCreateParams); override;
    begin
     Params.style = Params.style or WS_THICKFRAME
    end;快给我加分啦.,.哈哈..
      

  8.   

    修改屬性(Delphi6.0)﹕1. BorderStyle: bsNone
    2. BorderIcons
       biSystemMenu: false
    即可。