Delphi 半透明窗体,窗体以及控件透明度
很简单了 现在,适用所有控件和窗体:
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
在窗体创建时将Form1的AlphaBlend属性设置为True。
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.AlphaBlend:=True;
end;
- 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
要注意的是,Form1的AlphaBlendValue属性接受的是byte类型,0为完全透明,255为完全不透明。
Delphi 半透明窗体,窗体以及控件透明度的更多相关文章
- WPF中不规则窗体与WindowsFormsHost控件的兼容问题完美解决方案
首先先得瑟一下,有关WPF中不规则窗体与WindowsFormsHost控件不兼容的问题,网上给出的解决方案不能满足所有的情况,是有特定条件的,比如 WPF中不规则窗体与WebBrowser控件的兼 ...
- VC窗体透明而控件不透明以及Static文本背景透明方法
出自http://my.oschina.net/ypimgt/blog/60951 优点: 1.Dialog 窗体完全透明. 2. 窗体上的控件不透明. DC 绘制的图形不透明. ...
- [译]- 6-1 排列窗体上的控件(Laying Out Widgets on a Form)
排列窗体上的控件(Laying Out Widgets on a Form) 中英文对照:form(窗体),layout(布局或者排列,意思是进行窗体上控件的排列的过程,如大小位置等) absolu ...
- 【机房系统知识小结点系列】之遍历窗体中的控件,判断Text是否为空?
做机房系统时,几乎每个窗体中都会用到判断界面中的控件是否为空的情景.我们曾经是这样走来的: 第一版: 好处:对窗体界面中的Text等控件,逐一做判断,当用户输入某一项为空的时候,会议弹出框的形式,告诉 ...
- WPF中不规则窗体与WebBrowser控件的兼容问题解决办法
原文:WPF中不规则窗体与WebBrowser控件的兼容问题解决办法 引言 这几天受委托开发一个网络电视项目,要求初步先使用内嵌网页形式实现视频播放和选单,以后再考虑将网页中的所有功能整合进桌面程序. ...
- C# 向程序新建的窗体中添加控件,控件需要先实例化,然后用controls.add添加到新的窗体中去
C# 向程序新建的窗体中添加控件,控件需要先实例化,然后用controls.add添加到新的窗体中去 Form settingForm = new Form(); setForm deviceSet ...
- Delphi 10 Seattle 小票打印控件TQ_Printer
TQ_Printrer控件,是一个为方便需要控制打印命令而设计的跨平台专用控件,已包含标准ESC/POS打印控制的基本指令在内(这些基本指令已能很好的满足多数项目使用). TQ_Printrer控件让 ...
- Delphi下使用Oracle Access控件组下TOraSession控件链接
Delphi下使用Oracle Access控件组下TOraSession控件链接数据库,使用 orsn1.Options.Direct:=true; orsn1.Server:=IP:Port: ...
- Delphi中解析Xml的控件-SimDesign NativeXml
Delphi中解析Xml的控件-SimDesign NativeXml 正在学习,感觉应用很方便.无源代码的版本还是免费的. SimDesign.NativeXml是一个delphi和bcb的XML控 ...
- 修改Delphi 10.1.2 edit控件在android的复制、剪切和粘贴样式
Delphi 10.1.2 edit控件在android默认的复制.剪切和粘贴样式太丑,经悟能-DelphiTeacher的提示,用最简单的代码修改后稍有改观. 默认的样式: 修改后的样式: 修改FM ...
随机推荐
- java问题随笔
1. 类的对象实例化 如何不加static来调用函数2. 如何用当前时间来生成随机数 3.GitHab账号1. java中如何不加static来调用函数? 加static: 表示这个方法为静态方法,在 ...
- 【Isamaru, Hound of Honda】SVN常用命令补遗
一些常用的 就是svn commit的时候 都必须是最新版本的东西 不能不是,但是其实只是.svn在控制,所以可以update到最新版本再svn merge -r 20:10 将版本10和20的融合, ...
- 笔记-python-tutorial-4.controlflow( and function)
笔记-python-tutorial-4.controlflow( and function) 1. 函数 1.1. 定义函数 def name(x): “””函数的第一行语句可以是可 ...
- 3 View视图 URLconf
1.视图 视图接受Web请求并且返回Web响应 视图就是一个python函数,被定义在views.py中 响应可以是一张网页的HTML内容,一个重定向,一个404错误等等 响应处理过程如下图: 2 准 ...
- MySQL之索引(一)
创建高性能索引 索引是存储引擎用于快速找到记录的一种数据结构.这是索引的基本功能.索引对于良好的性能非常关键.尤其是当表中的数据量越来越大时,索引对性能的影响愈发重要.在数据量较小且负载较低时,不恰当 ...
- 手机端sticker布局,底部按钮在屏幕底部
<template> <div class="product-detail-container"> <div class="detail&q ...
- Python数据结构之列表、元组及字典
一位大牛Niklaus Wirth曾有一本书,名为<Algorithms+Data Structures=Programs>,翻译过来也就是算法+数据结构=程序.而本文就是介绍一下Pyth ...
- SEO搜索引擎优化基础
要如何提高自己网站的知名度,那必须了解一些SEO知识. 1.什么是搜索引擎 所谓的搜索引擎(Search Engines)是一些能够主动搜索信息(搜索网页上的单词和简短的特定的内容描述)并将其自动索 ...
- PyInstaller打包python脚本
用python写的工具写好了,想打包然后发给测试同事使用,最后选择了PyInstaller,支持Windows.Linux.OS X,支持打包成一个文件夹或单个EXE文件. 我是直接在线安装的,在 ...
- 学习python3之路的第一个小代码-----------9*9乘法表
这个编写的简单,用两个循环迭代就行.下面就是我写的编码以及输出的结果 1 #!/usr/bin/env python 2 # encoding: utf-8 3 4 i = 1 5 6 while i ...