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 tfilestream 流操作2

Delphi中frame和form有何区别

Delphixe 如何调用stringtojstring

Delphi memo 循环往上往下滚动

Delphi监视进程并结束进程

Delphi controlcount和componentcount的区别

Delphi 的运算符列表

Delphi 查看 dll 的输出函数列表

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi 字符串保存utf-8过程

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



打赏

取消

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

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

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

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

评论

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