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从外部拖拽文件

Delphi写文本文件

Delphi保存网页中的图片

Delphi 批量删除同类文件的函数

Delphi 字符串加密解密(不支持中文)

Delphi unigui 获取files路径

Delphixe firemonkey 如何画图

Delphi 获取 设置文件时间

Delphi ansi字符串转unicode编码

Delphi arp攻击代码

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...