Delphi 窗口没有边框的方法

只需在form子窗体中create中写入以下代码，就可以了。

setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE)and not ws_caption);

clientheight:=height;

refresh;

以上代码我实验过，完全可行。

当然你还可以改变子窗体的其他选项，如下：

1、使窗体没有边框

在form的create事件中

var

windowstyle:longint;

windowstyle:=getwindowlong(handle,GWL_Style);

setwindowlong(handle,GWL_Style,windowstyle and not WS_Border);

clientheight:=height;

refresh;

2、使窗体没有系统菜单

var

windowstyle:longint;

windowstyle:=getwindowlong(handle,GWL_Style);

setwindowlong(handle,GWL_Style,windowstyle and not WS_Sysmenu);

clientheight:=height;

refresh;

3、使窗体最大值无效

var

windowstyle:longint;

windowstyle:=getwindowlong(handle,GWL_Style);

setwindowlong(handle,GWL_Style,windowstyle and not WS_Maximizebox);

clientheight:=height;

refresh;

4、使窗体最小值无效

var

windowstyle:longint;

windowstyle:=getwindowlong(handle,GWL_Style);

setwindowlong(handle,GWL_Style,windowstyle and not WS_Minimizebox)；

clientheight:=height;

refresh;

5、使窗体没有标题

var

windowstyle:longint;

windowstyle:=getwindowlong(handle,GWL_Style);

setwindowlong(handle,GWL_Style,windowstyle and not WS_Caption)；

clientheight:=height;

refresh;

是不是有了变化，不过其中有些功能可以从form的属性中进行设置，也可以实现此类效果。