Delphi编程实用小技巧（五）——透明窗体

最新推荐文章于 2025-10-24 13:48:28 发布
原创 最新推荐文章于 2025-10-24 13:48:28 发布 · 688 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
收录于
技术学习

当前文章被收录于：

技术学习
4 篇文章 0 人学习
订阅专栏 查看详情
本文介绍了一种简单的实现透明窗体的方法，并通过设置窗体属性及透明度，结合无边框样式，实现在窗体上的标签显示效果。具体步骤包括调整窗体颜色属性、启用透明效果并移除窗体边框。

  非常简单的方法呀！经典。。。

    将form1的属性：Color,TransparentColorValue 的颜色设为相同的颜色，再将ransparentColor 设为true。在窗口上加入一个Lable，随意打上一标题即可，例如：hello!!.把form1的属性BorderStyle设为bsNone,运行结果如下：

标签
#delphi #编程
四周带阴影的无边框窗口（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实现透明以及半透明窗体
06-05 4078
    在QQ中，我可以调节面板的透明度。如果我们自己编程，应该如何实现呢？    （一）半透明窗体     在windows2000以及后续产品中下增加了一些API,可以轻易的实现半透明的窗体，源程序如下：interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dial
Windows-Delphi 设置窗口透明度
m0_47587308的博客
09-30 636
Windows-Delphi 设置窗口透明度。
Delphi 笔记（二） 窗体属性设置 主窗体、透明度、隐藏和显示
qq_41661878的博客
08-23 2654
1、窗体透明度设置及窗体淡入淡出 delphi设置窗口透明 form1.AlphaBlend :=true; //透明 form1.AlphaBlendValue :=180; //透明度 form1.TransparentColor :=true; //透明颜色 原文链接：https://www.cnblogs.com/del88/p/4297760.html 窗体淡入淡出 将AlphaBlend设置为True，然后更改AlphaBlendValue属性的值。从0开始增加，最大255。
Delphi实现透明窗体
WhoMovedMyCheese的专栏
12-01 3461
unit unitMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; But
DIY Delphi 半透明窗体 (1)
warrially的专栏
01-10 2595
写这篇文章的时候脑子有点乱..  unit xDrawForm; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus, Graphics,GDIPOBJ,GDIPAPI,GDIPUTIL; type TwwGDIImage = class public
delphi窗体透明但上面的控件不透明怎么实现
dkopg24406的专栏
09-02 875
我不知道LAZARUS是什么玩意。纯用DELPHI的话。procedure TForm1.FormCreate(Sender: TObject);var mStyle, mExStyle: Longint; FAlphaColor: TColor; beginFAlphaColor:= clRed; //设置窗体为无标题 mStyle:= GetWindowLong(Han...
delphi 异形窗体
dkopg24406的专栏
08-13 698
DELPHI 透明窗体 心血来潮想用delphi做透明窗体，要知道我虽然搞了N年编程，但什么也没编写成。惭愧的很，以前VCVB之类的光搞懂它们的控件就让我很费劲，没办法不懂英文。还是学DELPHI吧，听说是聪明程序员学习的语言。在网络上搜索下透明窗体，哈文章不少，视频也有，但都太繁琐，关键看不懂，总算有个简单的，实验成功了哈哈。博下来以后用： unit StyleForm...
Delphi实现缩略图生成与透明窗体设计
weixin_29867767的博客
09-07 986
图像处理是计算机图形学中的重要分支，广泛应用于图像显示、图形编辑、视觉识别等领域。在Delphi开发环境中，图像处理主要依赖于Windows API与GDI（Graphics Device Interface）或其升级版本GDI+。GDI+的核心类包括：TGPImage：图像基类，用于加载和管理图像资源。TGPBitmap：继承自TGPImage，用于操作位图。：用于图像绘制，支持抗锯齿、缩放等操作。TGPRectTGPPoint：用于定义绘制区域与坐标点。
Delphi半透明窗体类
lawcng的博客
12-17 360
Delphi半透明窗体类 {******************************************************************************* 半透明窗体控件 版本：1.0 功能说明 : 1.支持颜色和图片半透明 2.暂时只能手动指定背景图片 3.可调透明度(0..255) 4.可控制是否可移动窗体 联系方式： Ema...
DELPHI中如何让FORM窗体透明，只显示控件？
dkopg24406的专栏
09-02 515
DELPHI中如何让FORM窗体透明，只显示控件？分享到： 对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 回复次数：7largewanglargewanglargewang等级：Blank#1 得分：5 回复于： 2002-12-17 13:58:37procedure TForm1.FormCreate(Sender: TObject);begin BorderStyl...
Delphi结合GDI+实现XDeskWeather风格透明窗体实战项目
最新发布
weixin_42588672的博客
10-24 1014
为了实现真正意义上的非矩形窗体（如圆形、心形），需结合RGN（Region）技术：varrgn: HRGN;beginend;功能说明：创建圆角矩形区域，限定窗体可见范围。应用该区域，超出部分自动裁剪且不可点击。若设置，即可得到椭圆形窗体。对于希望实现“鼠标穿透”的部分区域（如装饰性玻璃面板），可通过重载消息实现：begininherited;// 穿透此区域end;行为解释：当鼠标位于。
使用PNG实现半透明的窗体
伴水之剑
02-25 9951
  Delphi中标准控件是不支持png图片的，据说从Window2000后增加gdiplus.dll库处理更多的gdi图像，其中包括png。  关键的几个api  GdipCreateBitmapFromFile()，从文件载入图像（不单只Bitmap）  GdipCreateBitmapFromStreamICM()，从流中入图像  GdipCreateHBITMAPFromB
delphi 透明
靠别人不如靠自已。
03-27 3486
procedure TForm1.FormCreate(Sender: TObject); var rgn:HRGN; begin Self.Color := clRed; BeginPath(Canvas.Handle); SetBkMode(Canvas.Handle,TRANSPARENT ); Canvas.Font.Name:
delphi 半透明窗体类
留下脚印
07-18 1004
{******************************************************************************* 半透明窗体控件 版本：1.0 功能说明 : 1.支持颜色和图片半透明 2.暂时只能手动指定背景图片 3.可调透明度(0..255) 4.可控制是否可移动窗体 联系方式： Email: mdejtoz@
编程实现窗体的半透明效果
CandyCat的专栏
05-17 2144
编程实现窗体的半透明效果　作者：罗蔷　发布时间：2001/03/16 文章摘要:　　大家都知道Windows 2000支持淡入淡出的窗体显示效果。如何让自己的应用程序也具备这种效果呢？下文对此问题做出了解答。        正文: 编程实现窗体的半透明效果　　　　如
delphi 窗体全透明，但窗体上的控件不透明
paulfzm的专栏
03-23 1162
//窗体全透明，但窗体上的控件不透明 procedure TForm1.Button1Click(Sender: TObject); Var frmRegion, tempRegion: HRGN; i: Integer; Arect: TRect; Begin frmRegion := 0; For I:= 0 To ControlCou...
Delphi中圆形窗体实现方法
weixin_35307279的博客
11-11 710
本文还有配套的精品资源，点击获取 简介：本篇文章将介绍在Delphi编程环境中如何自定义绘制并实现一个圆形窗体。Delphi使用Object Pascal语言，基于组件的可视化开发工具，窗体通常为矩形，但通过自定义绘制技术可以创建非矩形窗体。我们将讲解通过覆盖OnPaint事件、禁用边框和标题栏以及处理透明效果等技术点来实现圆形窗体的方法。同时，提供示例代码和扩展应用的介绍...
Delphi主窗体实现透明
angchen2660的博客
08-25 341
设置以下属性即可实现透明窗体显示文字：===========================================设置窗体属性： BorderStyle 属性设置为 bsNoneColor属性设置为 clWhite（白色：窗体背景色）TransparentColor...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值