本文整理自网络，侵删。
相关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 indy10下 utf8码转换的问题
更多相关阅读请进入《Delphi》频道 >>
