怎样建立没有标题栏的窗体?

Question

Caption:="";
borderstyle=none;
将bordericons全部置为False;

Answer 1

form有一个Borderstyle属性，有几个选项，随便你怎样设置了！

Answer 2

你去看看我的网站,我看年你才是初学者
http://funstudio.coolwww.net

Answer 3

TO d_fang:敢跟三少这样说话?不想混了是吧?*_*

Answer 4

哈哈，懒得回答，它的问题解决之后好像从来没有给过分........
有谁从d_fang手中拿过分数？请告诉我一声。

Answer 5

“d_fang” 就是“大方”,
给分不会吝啬吧.

Answer 6

Caption:="";
borderstyle=none;
将bordericons全部置为False;

Answer 7

我要求的是没有标题栏的窗体,不是的没有边框的窗体,window中有一种窗体没有标题栏,但是有边框,我用spy++查过没有放其他的控件在窗体上

Answer 8

    实际上，这个问题我已经请教过这里的高手了。主要是利用WindowsAPI函数来处理。
    下面是个范例：(假设该窗体为Form1)
    Var notitle: boolean;//这是窗体是否有标题栏的标志
    begin
      if notitle then
      begin
        SetWindowLong( Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) or  
        WS_CAPTION );
        Form1.ClientHeight:=Form1.ClientHeight-1;
        Form1.ClientHeight:=Form1.ClientHeight+1;
      end
      else 
      begin
        SetWindowLong( Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) and 
        not WS_CAPTION );
        Form1.ClientHeight:=Form1.ClientHeight-1;
        Form1.ClientHeight:=Form1.ClientHeight+1;
      end;
      notitle:= not notitle;
    end;
    ......    Happy new year!

Answer 9

borderstyle=none;
然后，在CreateParams里：
Param->WndStyle |= WS_POPUP;
Param->WndStyle &= ~WS_DLGFRAME;
具体记不清了，就是这个意思

Answer 10

2 d_fang:
  对不起，我没有明白你的题目的意思，现在我明白了，我好像在哪儿见到过解决的方法，不过要到2月16号才能给你答案了。

Answer 11

我用过如下的方法
var hFrom : HRGN;
hFrom := CreateRectRgn(0,19,Width,Height);//这里的19是将标题条的大小
SetWindowRgn(Handle,hFrom,True);
其原理是从新设置窗体的大小。如果对窗体的边框效果不满意的话，可以在OnPaint中画几条阴影线就可以得到想好的三维效果了。
BTW：哪些外观很漂亮的界面大都自己画的。