Delphi 无边框窗体显示阴影

于 2024-01-24 11:20:56 发布
阅读量497 收藏 8
点赞数 10
文章标签： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/daigua1987/article/details/135817450
版权
本文讲述了如何在Windows系统中创建无边框窗体，自定义边框颜色，并添加类似系统自带阴影效果的过程，特别提到了使用Dwm插件来达到理想显示效果，附有控件下载链接。
摘要由CSDN通过智能技术生成

系统默认的窗体边框太难看，经常跟系统的风格不符，这个时候我们就需要无边框的窗体了，然后自己设置边框颜色等，但是在showmodal出来的时候，没有阴影效果，这样看着就没立体效果了，所以我们就需要添加阴影效果了，不过找了网上大部分阴影效果，都不怎么符合自带的阴影效果。后面找到了Dwm，效果显示非常好，是原本的阴影效果，只是把边框隐藏起来了，设计的时候，需要带着边框的，然后把插件拖上去即可。
在这里插入图片描述
这是显示效果。控件下载地址https://download.csdn.net/download/daigua1987/88777092?spm=1001.2014.3001.5503

daigua1987
关注
  • 10
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
四周带阴影的无边框窗口（DELPHI源代码）
11-20
四周带阴影的无边框窗口（DELPHI源代码） 使用说明： 1、将Vcl.ShadowForms加入Uses; 2、将默认的TForm1 = class(TForm)改为TForm1 = class(TShadowForm); 3、将Form的BorderStyle改为bsNone; 4、在From的FormMouseDown事件中增加以下语句： ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE + HTCaption, 0);
Delphi 实现带阴影效果的画框
05-11
Delphi7源码实现带阴影效果的图片画框，为一幅图片增加立体的阴影修饰，就像挂在墙上的风景画，还可设置多种颜色阴影效果，另外还可设置尝试阴影效果， 运行环境：Windows/Delphi7
高难的窗体阴影效果
starsite的专栏
07-28 472
高难的窗体阴影效果,效果如下： 
Delphi StyleControls之渐变色标题栏
小印丶的笔记
08-26 1444
RAD Studio 10.3 测试√ 【scStyledForm】 DWMClientShadow------------------设置窗体为无边框窗体 【下面方法中使用一种即可实现】 【scLabel、scPanel、scGPPanel】 DragForm-------------------------------设置窗体是否可拖动 【Panel】 procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Sh
delphi 窗口阴影
paulfzm的专栏
03-23 663
放窗体创建事件里面 SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
无边框显示阴影控件Dwm-master
最新发布
01-24
无边框显示阴影控件
Delphi窗口无边框时显示窗口阴影
Witson的博客
09-05 2931
Delphi窗口无边框时显示窗口阴影procedure CreateParams(var Params:TCreateParams);override; //........ procedure TfMain.CreateParams(var Params: TCreateParams); // uncomment this if CS_DROPSHADOW is not already de
Delphi 无边框窗口的实现
05-18
使用Delphi源码实现一个无边框窗口，把标题栏去掉了，同时也去掉了标题栏上的最大化、最小化和关闭按钮，测试发现，这个无标题栏无边框的窗体不能拖动，要是能拖动就更好了。 运行环境：Windows/Delphi7
Delphi 如何制作带阴影窗体
小祝的专栏
05-16 2178
转自//从文件加载PNG procedure YXForm_FromFile(AForm : TForm; AFileName : String); //从资源加载PNG procedure YXForm_FromResource(AForm : TForm; ResName : String; ResType : PWideChar; Instance : HINST = 0); //从图像对象
无边框圆角窗体，窗体带边框线和阴影
05-10
窗体阴影的实现稍微复杂一些，因为Windows Forms框架本身并不直接支持这一功能。一种常见方法是利用P/Invoke技术调用Windows API，如`DwmExtendFrameIntoClientArea`和`DwmSetWindowAttribute`，使窗体具备 Aero ...
Delphi Shadow窗口阴影立体效果.rar
07-10
Delphi 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。 　　ShadowWidth:integer; //用于确定阴影的宽度或高度 　　RightShadow:TForm; //主窗口的右边产生一个阴影窗口 　　BottomShadow:TForm; //主窗口的下部产生一个阴影窗口 　　procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;
界面渐变带阴影窗体（delphi）
05-07
界面渐变带阴影窗体（delphi），png按钮
可以设置透明度的Panel
06-10
可以设置透明度的Panel,还可以设置颜色等，非常好用~~!
无边框窗口加阴影
04-07
基于VCL的无边框窗口,加上阴影,可用于xp,win10,仅适用于c++builder开发工具
gdi+实现无标题栏无边框半透明阴影窗口
10-13
使用UpdateLayerWindow，gdi+实现无标题栏无边框半透明阴影窗口使用UpdateLayerWindow，gdi+实现无标题栏无边框半透明阴影窗口使用UpdateLayerWindow，gdi+实现无标题栏无边框半透明阴影窗口使用UpdateLayerWindow，gdi+实现无标题栏无边框半透明阴影窗口
无边框窗体实例
01-17
无边框窗体是一种特殊的窗体设计，它去除了窗体周围的默认边框，为用户提供更为简洁、美观的界面体验。本实例将深入探讨如何创建和实现无边框窗体，并结合美化和处理重复按键及鼠标操作的方法，来提升用户体验。 ...
【Delphi】窗体阴影
weixin_30487317的博客
03-24 313
1 procedure TForm1.FormCreate(Sender: TObject); 2 begin 3 SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW); 4 end; 转载于:https://www.cnblogs.com/lifelog/p/36...
Delphi 窗口没有边框的方法
喜爱，方能专注。专注，方能成功。
08-27 5251
只需在form子窗体中create中写入以下代码，就可以了。 setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE)and not ws_caption); clientheight:=height; refresh; 以上代码我实验过，完全可行。 当然你还可以改变子窗体的其他选项，如下： 1、使窗体没有边框 在f
重绘panel控件，实现panel的阴影效果
weixin_30938149的博客
12-24 1616
最近想在项目中添加一个要有阴影的panel控件，找了好多资料，最后通过采用图片的方式实现了panel的阴影效果，效果图如下： 重绘代码如下： 1 using System; 2 using System.Collections.Generic; 3 using System.ComponentModel; 4 using System.Drawing; 5 u...
Delphi fmx无边框窗体拖功
03-26
可以通过以下步骤实现Delphi FMX无边框窗体的拖动功能： 1. 在窗体的OnMouseDown事件中添加以下代码： if Button = TMouseButton.mbLeft then begin ReleaseCapture; SendMessage(Self.Handle, WM_...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值