Delphi 无边框窗体显示阴影

原创 于 2024-01-24 11:20:56 发布 · 855 阅读 · 8 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
GEO检测
本文讲述了如何在Windows系统中创建无边框窗体，自定义边框颜色，并添加类似系统自带阴影效果的过程，特别提到了使用Dwm插件来达到理想显示效果，附有控件下载链接。

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

标签
#delphi
daigua1987
关注
Delphi登录界面美化指南：从零设计现代化无边框窗口（支持拖动/阴影效果）
redis7keeper的博客
02-23 1203
本文详细介绍了如何使用Delphi从零开始设计并实现现代化的无边框登录窗口。通过设置BorderStyle属性移除默认边框，并重点讲解了如何利用TRectangle和TShadowEffect构建圆角、阴影等视觉元素，以及实现无边框窗口的拖动功能。文章提供了多种拖动方法的代码示例和性能优化建议，帮助开发者打造兼具美观与实用性的登录界面。
Delphi 实现带阴影效果的画框
05-11
Delphi7源码实现带阴影效果的图片画框，为一幅图片增加立体的阴影修饰，就像挂在墙上的风景画，还可设置多种颜色阴影效果，另外还可设置尝试阴影效果， 运行环境：Windows/Delphi7
无边框显示阴影控件Dwm-master
01-24
无边框显示阴影控件
Delphi 为组件制作立体效果，实现组件的阴影、投影效果
01-30
Delphi 为组件制作立体效果，实现组件的阴影、投影效果，这种阴影效果不是很细腻，不过大致也说得过去，必竟实现方法简单，原生Delphi方法实现，不依靠三方控件，最终效果请参见测试截图所示.zip
Delphi 无边框窗口的实现
05-18
使用Delphi源码实现一个无边框窗口，把标题栏去掉了，同时也去掉了标题栏上的最大化、最小化和关闭按钮，测试发现，这个无标题栏无边框的窗体不能拖动，要是能拖动就更好了。 运行环境：Windows/Delphi7
Delphi窗口无边框时显示窗口阴影
Witson的博客
09-05 3170
Delphi窗口无边框时显示窗口阴影procedure CreateParams(var Params:TCreateParams);override; //........ procedure TfMain.CreateParams(var Params: TCreateParams); // uncomment this if CS_DROPSHADOW is not already de
【Delphi】窗体阴影
weixin_30487317的博客
03-24 421
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实现悬浮的卡拉ＯＫ字幕
weixin_30762087的博客
02-15 194
千千静音的悬浮式卡拉ＯＫ字幕，大家一定觉得不错吧，其实用Delphi，你也可以很容易的做得到。首先我们在Delphi中新建一个700*130左右的窗体，上面放置两个Image控件，Image控件的Align=alClient,使它们铺满窗口，唯一不同的是，Image1的Visuble=ture,用于前台显示字幕，Image2的Visible=false,用于后台绘制，还要用到一个Timer控件,...
无边框窗体和timer控件
david600656的博客
09-28 183
一、无边框窗体 1、控制按钮如何制作就是放置可以点击的控件，不局限于使用按钮或是什么别的，只要放置的控件可以点击能触发点击事件就可以了 做的好看一点，就是鼠标移入（pictureBox1_MouseEnter），移出（pictureBox1_MouseLeave），按下（ pictureBox1_MouseDown）三个事件会让按钮改变样式 如何获取图片的相对路径：Appli...
无边框窗体的移动和阴影
weixin_30929011的博客
04-26 121
无边框窗体的移动和阴影 窗体移动API [DllImport("user32.dll")] public static extern bool ReleaseCapture(); [DllImport("user32.dll")] public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, i...
一行代码让无边框窗体实现阴影
cmd9x的专栏
12-25 2312
SetClassLong(Self.Handle, GCL_STYLE, GetClassLong(Self.Handle, GCL_STYLE) or CS_DROPSHADOW);//窗体阴影
四周带阴影的无边框窗口（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);
无边框圆角窗体，窗体带边框线和阴影
05-10
有点类似qq登录界面的窗体样式 可设置无边框窗体圆角属性 可设置窗体边框线和边框线颜色 可拖动 可设置窗体阴影 带作者logo 可设置不显示 详细请查看说明
Delphi Shadow窗口阴影立体效果.rar
07-10
Delphi 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。 　　ShadowWidth:integer; //用于确定阴影的宽度或高度 　　RightShadow:TForm; //主窗口的右边产生一个阴影窗口 　　BottomShadow:TForm; //主窗口的下部产生一个阴影窗口 　　procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;
Delphi 如何制作带阴影窗体
小祝的专栏
05-16 2378
转自//从文件加载PNG procedure YXForm_FromFile(AForm : TForm; AFileName : String); //从资源加载PNG procedure YXForm_FromResource(AForm : TForm; ResName : String; ResType : PWideChar; Instance : HINST = 0); //从图像对象
delphi 窗口阴影
paulfzm的专栏
03-23 780
放窗体创建事件里面 SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
用键盘方向键移动无边框窗体并用Esc键关闭窗体
hl3464的专栏
03-09 751
<br />{ 功能：用键盘操作无边框窗体移动并关闭。 环境：delphi7+winxp3 通过测试 完成时间：18:09 2011-3-7 } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label
高难的窗体阴影效果
starsite的专栏
07-28 546
高难的窗体阴影效果,效果如下： 
带阴影的浮动窗体的实现
weixin_34107955的博客
07-10 146
昨天设计部要求在软件的浮动小窗口的四周添加上阴影，本来以为很好做，直接拿一张带阴影的图像文件贴上去了。运行 起来完全不是那么回事，在不同的背景下看起来完全不一样，因为阴影是由黑到白渐变的，在白背景下慢慢溶入背景看起来很好，可是在深色背景下看起来四周的阴影看起来就没有渐变效果了，只是一圈灰边。 在网上搜下关于窗体阴影的解决方案，还真不多，搜到两种。第一是在http://www.codepro...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值