文档章节

delphi tedit 透明

vga
 vga
发布于 2016/07/22 06:54
字数 101
阅读 83
收藏 0

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm) edt1: TEdit; procedure FormCreate(Sender: TObject); private fbmp: TBitmap; fbsh: HBRUSH;

protected procedure WndProc(var Messages: TMessage); override; public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin fbmp := TBitmap.Create; fbmp.LoadFromFile('c:\back1.bmp'); fbsh := CreatePatternBrush(fbmp.Handle); end;

procedure TForm1.WndProc(var Messages: TMessage); begin inherited; case Messages.Msg of WM_CTLCOLOREDIT, WM_CTLCOLORSTATIC: if (Messages.LParam=edt1.Handle) and(fbsh <> 0) then begin SetBkMode(Messages.WParam, TRANSPARENT); Messages.Result := fbsh end; end; end;

end.

本文转载自:http://www.52delphi.com/list.asp?ID=1355

共有 人打赏支持
vga

vga

粉丝 21
博文 363
码字总数 26355
作品 0
佳木斯
私信 提问
c# 和 delphi 的 base64 编码一致问题 webservice

c# 和 delphi 的 base64 编码一致问题 webservice 由于项目需要为包括c/s和b/s的多个平台提供统一业务逻辑,写个webservice来完成这个任务,通过webservice封装业务逻辑,为其他平台提供接口...

vga
2014/10/04
0
0
Delphi组件开发教程指南(2)简单扩充TEdit

上一篇,介绍了组件开发的一般概述,以及组件类层次结构的各个类的大致信息!现在就开始通过实例进行来简单的讲述一下一般组件的开发过程!我这里先采用最基本的方式来创建一个组件!也就是使...

技术小美
2017/11/12
0
0
delphi实现十进制与十六进制之间的转化

最近在下班业余时间学习下delphi和C++,用delphi写界面,C++写核心代码,希望以后可以用delphi和c++写一些自己的程序出来,也是最近才学到运算符于是写了2个小程序以巩固学的东西,此文章就暂时贴...

wbf961127
2017/11/15
0
0
Delphi下MSMQ(Mircosoft Message Queue)实例(私有队列)

Delphi下MSMQ(Mircosoft Message Queue)实例(私有队列) 网上关于消息队列技术原理说明的详细文档很多,但涉及到Delphi的具体实现很少,这是我从网上找了一上午的资料,自己整合和尝试的能...

vga
2015/12/25
161
0
GO 语言 UI 组件库 - govcl

由于现有第三方的Go UI库不是太大就是用的不习惯,或者组件太少。就萌生了自己写一个UI库的想法Delphi(Lazarus)有些许多优秀的VCL(LCL)组件,不拿来使用太可惜了。所以就索性做了一套。目前支...

不在乎y
2017/10/10
6.9K
17

没有更多内容

加载失败,请刷新页面

加载更多

Linux iptables之mangle表使用案例

mangle表的用途 mangle表的主要功能是根据规则修改数据包的一些标志位,以便其他规则或程序可以利用这种标志对数据包进行过滤或策略路由。 mangel表使用示例 示例1-策略路由1 内网的客户机通...

月下狼
35分钟前
2
0
OSChina 周日乱弹 —— 兼职我想去学学布偶戏

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 @clouddyy : 《火炎 - 女王蜂》 《火炎 - 女王蜂》 手机党少年们想听歌,请使劲儿戳(这里) @小鱼丁 :还在睡觉突然接到一个小哥哥电话“x...

小小编辑
47分钟前
42
3
租房软件隐私保护如同虚设

近日,苏州市民赵先生向江苏新闻广播新闻热线025-84658888反映,他在“安居客”手机应用软件上浏览二手房信息,并且使用该软件自动生成的虚拟号码向当地一家中介公司进行咨询。可电话刚挂不久...

linux-tao
今天
3
0
分布式项目(五)iot-pgsql

书接上回,在Mapping server中,我们已经把数据都整理好了,现在利用postgresql存储历史数据。 iot-pgsql 构建iot-pgsql模块,这里我们写数据库为了性能考虑不在使用mybatis,换成spring jd...

lelinked
今天
6
0
一文分析java基础面试题中易出错考点

前言 这篇文章主要针对的是笔试题中出现的通过查看代码执行结果选择正确答案题材。 正式进入题目内容: 1、(单选题)下面代码的输出结果是什么? public class Base { private Strin...

一看就喷亏的小猿
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部