form变身五法

你是不是厌倦了平时的form,不用担心我们可以利用winapi函数来改变它的模样。
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的属性中进行设置,也可以实现此类效果
posted @ 2010-06-28 17:56  小氓男  阅读(133)  评论(0编辑  收藏
我要啦免费统计