Delphi 无边框窗体显示阴影

于 2024-01-24 11:20:56 发布
阅读量487 收藏 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
Delphi StyleControls之渐变色标题栏
小印丶的笔记
08-26 1436
RAD Studio 10.3 测试√ 【scStyledForm】 DWMClientShadow------------------设置窗体为无边框窗体 【下面方法中使用一种即可实现】 【scLabel、scPanel、scGPPanel】 DragForm-------------------------------设置窗体是否可拖动 【Panel】 procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Sh
高难的窗体阴影效果
starsite的专栏
07-28 470
高难的窗体阴影效果,效果如下： 
delphi 窗口阴影
paulfzm的专栏
03-23 661
放窗体创建事件里面 SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
Delphi窗口无边框时显示窗口阴影
Witson的博客
09-05 2929
Delphi窗口无边框时显示窗口阴影procedure CreateParams(var Params:TCreateParams);override; //........ procedure TfMain.CreateParams(var Params: TCreateParams); // uncomment this if CS_DROPSHADOW is not already de
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); //从图像对象
Delphi 窗口没有边框的方法
喜爱，方能专注。专注，方能成功。
08-27 5247
只需在form子窗体中create中写入以下代码，就可以了。 setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE)and not ws_caption); clientheight:=height; refresh; 以上代码我实验过，完全可行。 当然你还可以改变子窗体的其他选项，如下： 1、使窗体没有边框 在f
界面渐变带阴影窗体（delphi）
05-07
界面渐变带阴影窗体（delphi），png按钮
无边框显示阴影控件Dwm-master
最新发布
01-24
"无边框显示阴影控件Dwm-master"项目显然是一个专门针对Delphi开发者的资源，旨在提供一种能够创建具有无边框窗口并带有阴影效果的控件。这种控件在设计用户界面时非常有用，可以实现更现代、更美观的应用程序外观。...
自己制作的一个漂亮的具有透明和阴影效果的(使用gdi+绘制)弹出菜单(delphi)
09-22
自己制作的一个漂亮的(使用gdi+绘制)弹出菜单(delphi) 完全兼容Delphi自带的TPOPUPMENU,因为直接从它继承而来，只是单元中我创建了一个用于菜单项显示的类，绘制弹出窗体的背景和菜单项的绘制使用GDI+技术.具有阴影效果. 因为自带的TPOPUPMENU创建的窗体不够好看，所以弹出的窗体是自己用API创建的，为了达到透明效果，将创建的窗体设为LayedWindow了. 如有不懂，请联系我.
Delphi组件立体阴影，投影效果..rar
04-25
Delphi组件立体阴影，投影效果..rar
效果不错的半透明窗体，有演示图，Delphi实现..rar
05-09
效果不错的半透明窗体，有演示图，Delphi实现..rar`
Delphi给窗体镶边（增加一个彩色边框）..rar
04-26
Delphi给窗体镶边（增加一个彩色边框）..rar
无边框圆角窗体，窗体带边框线和阴影
05-10
窗体阴影的实现稍微复杂一些，因为Windows Forms框架本身并不直接支持这一功能。一种常见方法是利用P/Invoke技术调用Windows API，如`DwmExtendFrameIntoClientArea`和`DwmSetWindowAttribute`，使窗体具备 Aero ...
无边框窗体实例
01-17
无边框窗体是一种特殊的窗体设计，它去除了窗体周围的默认边框，为用户提供更为简洁、美观的界面体验。本实例将深入探讨如何创建和实现无边框窗体，并结合美化和处理重复按键及鼠标操作的方法，来提升用户体验。 ...
Delphi Form Designer （窗体设计器）之三
fangyuan621的专栏
12-30 467
防止组件被移动或改变大小 组件可以锁住使它们不能移动。锁住组件是有用的，这样就知道Form Designer已完成工作并且不想为意外地移动控件而担心。要锁住窗体的控件，从主菜单中选择【Edit | Lock Controls】。锁住的控件是不能被移动和改变大小的。当控件被锁住时，它们的大小变动手柄是灰色的且带有黑边。如下图Button1，Button2，Button3被锁定住： 要解锁控件，在选【Edit | Lock Controls】，控件就像以前一样可以移动了。应用此技术，可以锁住窗体上所有的
给无边框窗口增加阴影
Missing
06-25 1359
给无边框窗口增加阴影，纯API实现，支持黑月。 可设置阴影颜色 /--------------------------------- 链接: http://pan.baidu.com/s/1c2r0Cco 密码: ja3m
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、付费专栏及课程。

余额充值