请问：在设置窗体bsNone之后，如何让其保持立体样式！或者用其他方法。。搞定

CPerlAsm_Lx 2003-08-29 10:41:45

请问：在设置窗体bsNone之后，如何让其保持立体样式！或者用其他方法。。搞定

...全文

99 9 打赏收藏转发到动态举报

写回复

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

hy1080 2003-09-26

打赏
举报

回复

忘了告诉你用TImage就行了

CPerlAsm_Lx 2003-08-30

打赏
举报

回复

其实老神经病方法很好的，可惜很难做到。

放panel感觉周边就没有了图形效果。。。。。

oayaya 2003-08-30

打赏
举报

回复

关注。。

oayaya 2003-08-30

打赏
举报

回复

没找到neoWin 是什么东西？

fathappy 2003-08-30

打赏
举报

回复

可以参照NeoWin的界面效果，很漂亮的。它就是放panel。

wangxiangsjz 2003-08-29

打赏
举报

回复

放一个Panel嘛。

CPerlAsm_Lx 2003-08-29

打赏
举报

回复

hy1080(老神经病)
关键是如何做背景，如果用imagebox，放置其他控件会挤掉。用canvas画，有点不方便吧？

FallenAngel 2003-08-29

打赏
举报

回复

重载CreateParams这个函数

hy1080 2003-08-29

打赏
举报

回复

麻烦的办法，我还没想出来，
简单的办法是，你用一个图片作背景就OK了，
而且可以比以前更漂亮。
而且还可能换肤。
强烈推荐★★★★★

delphi无标题窗体（borderstyle=bsnone）默认没有边框，无法移动，也无法拖拽必变窗体大小，本资源为无标题窗体加边框并可拖拽调整大小以及移动窗体位置。

delphi无标题窗体（borderstyle=bsnone）默认没有边框，也无法拖拽必变窗体大小，本资源为无标题窗体加边框并可拖拽调整大小

Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 bTrans: Byte; 　　 OldStyle: Integer; 　　begin 　　 form1.Color := clGradientActiveCaption; 　　 WindowState := wsMaximized; 　　 BorderStyle := bsNone; 　　 FormStyle := fsStayOnTop; 　　 OldStyle := GetWindowLong(Handle, GWL_EXSTYLE); 　　 SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT); 　　 bTrans := 128; 　　 SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA); 　　end;

［摘要］　触摸屏大家是经常用到的，但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。　　触摸屏大家是经常用到的，但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。　　１．怎样使窗体全屏显示，即根据显示器的大小来确定窗体的大小，这里介绍三种方法来实现：　　（１）ＢｏｒｄｅｒＳｔｙｌｅ　：＝　ｂｓＮｏｎｅ；　　ＷｉｎｄｏｗＳｔａｔｅ　：＝　ｗｓＭａｘｉｍｉｚｅｄ；　　（２）ＢｏｒｄｅｒＳｔｙｌｅ　：＝

［摘要］　触摸屏大家是经常用到的，但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。　　触摸屏大家是经常用到的，但不一定知道的是通过鼠标的单击和移动是怎样才能实现触摸屏的种种功能。下面就让我们来简单介绍在触摸屏编程过程中图形、图象处理技术的一些小技巧。　　１．怎样使窗体全屏显示，即根据显示器的大小来确定窗体的大小，这里介绍三种方法来实现：　　（１）ＢｏｒｄｅｒＳｔｙｌｅ　：＝　ｂｓＮｏｎｅ；　　ＷｉｎｄｏｗＳｔａｔｅ　：＝　ｗｓＭａｘｉｍｉｚｅｄ；　　（２）ＢｏｒｄｅｒＳｔｙｌｅ　：＝

13,824

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章