delphi如何给TEdit控件加上背景图片


本文整理自网络,侵删。

 相关API:SetBkMode(助记:SetBackGroundMode)
说明:指定阴影刷子、虚线画笔以及字符中的空隙的填充方式
返回值:Long,前一个背景模式的值
参数表
参数 类型及说明
hdc Long,设备场景的句柄
nBkMode Long,下述常数之一:
OPAQUE 用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙
TRANSPARENT 透明处理,即不作上述填充
注解:背景模式不会影响用扩展画笔描绘的线条

声明:
procedure HandleCTLColorEdit(var Msg: TWMCTLCOLOREDIT);message
WM_CTLCOLOREDIT;


代码部分:
procedure TForm1.HandleCTLColorEdit(var Msg: TWMCTLCOLOREDIT);
begin
if Msg.ChildWnd = Edit1.Handle then
begin
SetBkMode(Msg.ChildDC, TRANSPARENT);
Msg.Result := Edit1.Brush.Handle;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Brush.Bitmap:=image1.Picture.Bitmap;//这里背景图片取image1里的图片
edit1.Repaint;
end;


image1里的图片必须为BMP格式的,这个方法同样适用于Memo等控件。


 

相关阅读 >>

Delphi 提高unigui开发效率的两个方法

Delphi安卓创建pdf文件并打开

Delphi中多线程分析详解

Delphi 中的md5实现方法及Delphi2009和Delphi2010中用法

Delphi try abort、exit except 、finally end 执行情况

Delphi 新建一个txt文档函数

Delphi directx截图 截本窗口的图

Delphi读写utf-8、unicode格式文本文件

Delphi listview用法

Delphi adoconnection1连接mssql数据库方法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...