很简单了 现在,适用所有控件和窗体:

delphi设置窗口透明

form1.AlphaBlend :=true; //透明
form1.AlphaBlendValue :=180; //透明度
form1.TransparentColor :=true; //透明颜色

-------------------------------------------------------------

帖子1:http://zhidao.baidu.com/link?url=PC1llYKS1ak_QaRvMKNceBOI00W50IcleDm4qg3bP3VZwCSV_c7TDaOznlYMFZwTd2kt2jFN56wuzuD8cpjLv_

delphi 窗体的淡入淡出效果

请问下:delphi 窗体的淡入淡出效果怎么做? 
也就是说:刚开始运行窗体时,窗体从完全透明慢慢变到不透明.关闭窗体时.窗体从不透明,慢慢变到完全透明...
有没有人知道怎么做,教下小弟,谢谢
找到主窗体的AlphaBlend属性和AlphaBlendValue属性。将AlphaBlend设置为True。然后更改AlphaBlendValue属性的值即可。值从:0-255。窗体的淡入淡出效果,
可以在程序启动的时候用时钟控件,动态增加AlphaBlendValue的值。关闭则相反。
用API函数太麻烦,2000以上的系统可以用窗体的AlphaBlendValue属性来控制窗体的透明度,前提是AlphaBlend设为True。
AlphaBlendValue最大值255,最小0
做一个0-255的循环就好。 帖子2:http://jingyan.baidu.com/article/ca41422fde51231eae99eda4.html

Delphi调节窗口透明度

  • |
  • 浏览:51
  • |
  • 更新:2015-02-07 16:01

使用Delphi7的TrackBar组件实现用滑尺调节窗口透明度。

工具/原料

  • Delphi7

方法/步骤

    1. 1

      在窗体创建时将Form1的AlphaBlend属性设置为True。

      procedure TForm1.FormCreate(Sender: TObject);

      begin

      Form1.AlphaBlend:=True;

      end;

    2. 2

      使用TrackBar调节窗口透明度代码:

      procedure TForm1.TrackBar1Change(Sender: TObject);

      begin

      //  lbl3.Caption:=IntToStr(TrackBar1.Position)+'%';

      //  这一行使用Label3显示的透明度百分比

      Form1.AlphaBlendValue:=Byte(TrackBar1.Position*255 div TrackBar1.Max);

      end;

    3. 3

      要注意的是,Form1的AlphaBlendValue属性接受的是byte类型,0为完全透明,255为完全不透明。

Delphi 半透明窗体,窗体以及控件透明度的更多相关文章

  1. WPF中不规则窗体与WindowsFormsHost控件的兼容问题完美解决方案

    首先先得瑟一下,有关WPF中不规则窗体与WindowsFormsHost控件不兼容的问题,网上给出的解决方案不能满足所有的情况,是有特定条件的,比如  WPF中不规则窗体与WebBrowser控件的兼 ...

  2. VC窗体透明而控件不透明以及Static文本背景透明方法

    出自http://my.oschina.net/ypimgt/blog/60951 优点:    1.Dialog 窗体完全透明.     2. 窗体上的控件不透明. DC 绘制的图形不透明.     ...

  3. [译]- 6-1 排列窗体上的控件(Laying Out Widgets on a Form)

     排列窗体上的控件(Laying Out Widgets on a Form) 中英文对照:form(窗体),layout(布局或者排列,意思是进行窗体上控件的排列的过程,如大小位置等) absolu ...

  4. 【机房系统知识小结点系列】之遍历窗体中的控件,判断Text是否为空?

    做机房系统时,几乎每个窗体中都会用到判断界面中的控件是否为空的情景.我们曾经是这样走来的: 第一版: 好处:对窗体界面中的Text等控件,逐一做判断,当用户输入某一项为空的时候,会议弹出框的形式,告诉 ...

  5. WPF中不规则窗体与WebBrowser控件的兼容问题解决办法

    原文:WPF中不规则窗体与WebBrowser控件的兼容问题解决办法 引言 这几天受委托开发一个网络电视项目,要求初步先使用内嵌网页形式实现视频播放和选单,以后再考虑将网页中的所有功能整合进桌面程序. ...

  6. C# 向程序新建的窗体中添加控件,控件需要先实例化,然后用controls.add添加到新的窗体中去

    C# 向程序新建的窗体中添加控件,控件需要先实例化,然后用controls.add添加到新的窗体中去 Form settingForm = new Form(); setForm deviceSet ...

  7. Delphi 10 Seattle 小票打印控件TQ_Printer

    TQ_Printrer控件,是一个为方便需要控制打印命令而设计的跨平台专用控件,已包含标准ESC/POS打印控制的基本指令在内(这些基本指令已能很好的满足多数项目使用). TQ_Printrer控件让 ...

  8. Delphi下使用Oracle Access控件组下TOraSession控件链接

    Delphi下使用Oracle Access控件组下TOraSession控件链接数据库,使用  orsn1.Options.Direct:=true;  orsn1.Server:=IP:Port: ...

  9. Delphi中解析Xml的控件-SimDesign NativeXml

    Delphi中解析Xml的控件-SimDesign NativeXml 正在学习,感觉应用很方便.无源代码的版本还是免费的. SimDesign.NativeXml是一个delphi和bcb的XML控 ...

  10. 修改Delphi 10.1.2 edit控件在android的复制、剪切和粘贴样式

    Delphi 10.1.2 edit控件在android默认的复制.剪切和粘贴样式太丑,经悟能-DelphiTeacher的提示,用最简单的代码修改后稍有改观. 默认的样式: 修改后的样式: 修改FM ...

随机推荐

  1. java问题随笔

    1. 类的对象实例化 如何不加static来调用函数2. 如何用当前时间来生成随机数 3.GitHab账号1. java中如何不加static来调用函数? 加static: 表示这个方法为静态方法,在 ...

  2. 【Isamaru, Hound of Honda】SVN常用命令补遗

    一些常用的 就是svn commit的时候 都必须是最新版本的东西 不能不是,但是其实只是.svn在控制,所以可以update到最新版本再svn merge -r 20:10 将版本10和20的融合, ...

  3. 笔记-python-tutorial-4.controlflow( and function)

    笔记-python-tutorial-4.controlflow( and function) 1.      函数 1.1.    定义函数 def name(x): “””函数的第一行语句可以是可 ...

  4. 3 View视图 URLconf

    1.视图 视图接受Web请求并且返回Web响应 视图就是一个python函数,被定义在views.py中 响应可以是一张网页的HTML内容,一个重定向,一个404错误等等 响应处理过程如下图: 2 准 ...

  5. MySQL之索引(一)

    创建高性能索引 索引是存储引擎用于快速找到记录的一种数据结构.这是索引的基本功能.索引对于良好的性能非常关键.尤其是当表中的数据量越来越大时,索引对性能的影响愈发重要.在数据量较小且负载较低时,不恰当 ...

  6. 手机端sticker布局,底部按钮在屏幕底部

    <template> <div class="product-detail-container"> <div class="detail&q ...

  7. Python数据结构之列表、元组及字典

    一位大牛Niklaus Wirth曾有一本书,名为<Algorithms+Data Structures=Programs>,翻译过来也就是算法+数据结构=程序.而本文就是介绍一下Pyth ...

  8. SEO搜索引擎优化基础

    要如何提高自己网站的知名度,那必须了解一些SEO知识. 1.什么是搜索引擎 所谓的搜索引擎(Search  Engines)是一些能够主动搜索信息(搜索网页上的单词和简短的特定的内容描述)并将其自动索 ...

  9. PyInstaller打包python脚本

    用python写的工具写好了,想打包然后发给测试同事使用,最后选择了PyInstaller,支持Windows.Linux.OS X,支持打包成一个文件夹或单个EXE文件.   我是直接在线安装的,在 ...

  10. 学习python3之路的第一个小代码-----------9*9乘法表

    这个编写的简单,用两个循环迭代就行.下面就是我写的编码以及输出的结果 1 #!/usr/bin/env python 2 # encoding: utf-8 3 4 i = 1 5 6 while i ...