本文整理自网络,侵删。
相关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 controlcount和componentcount的区别
Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"
更多相关阅读请进入《Delphi》频道 >>