form变身五法 (2001年4月11日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 47 行

form变身五法 (2001年4月11日) 

网友更新  分类:Win API   作者:ice_ren  推荐:ice_ren   阅读次数:613  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
你是不是厌倦了平时的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的属性中进行设置，也可以实现此类效果。
（来自碧草青青 http://rongercao.go.163.com)